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IDENTIFICATION 


PRODUCT CODE: AC-F612C-MC 
PRODUCT NAME: CKKTBCO 11/44 MEM MGMT PRT B 


DATE: APRIL, 1981 
MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR : DAN P. MILLEVILLE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
a a Lense FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM 
AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED 
IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR THE USE OR RELIABILITY OF I7S SOFTWARE ON EQUIPMENT 
THAT IS NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1979, 1981 BY DIGITAL EQUIPMENT CORPORATION 
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87 1.0 PROGRAM INFORMATION 


1.1 ABSTRACT 


THIS PROGRAM WAS DESIGNED USING A_‘BOTTOM UP’’ APPROACH 
STARTING WITH THE SMALLEST SEGMENT OF MEMORY MANAGMENT 
LOGIC POSSIBLE AND BUILDING TO COVER ALL OF THE LOGIC. 
THE DIAGNOSTIC WILL PROVIDE ENOUGH INFORMATION SUCH THAT 
BY DEDUCTION, THE FAILURE CAN BE ISOLATED TO A SMALL 
SEGMENT OF THE MEMORY MANAGEMENT LOGIC. 


PART A BEGINS BY TESTING SOME OF THE INTERNAL CPU DATA 
AND ADDRESS PATHS AND ADDRESS DETECTION LOGIC, THEN 

* WORKS OUTWARD THROUGH THE MEMORY MANAGEMENT REGISTERS. 
AFTER THE REGISTERS ARE FOUND TO BE USEABLE, RELOCATION 
(CONSTRUCTION OF PHYSICAL ADDRESSES FROM A VIRTUAL ADDRESS 
AND THE ASSOCIATED PAR/PDR INFORMATION) IS TESTED. PART B 
REGINS BY TESTING THE ABORT AND STATUS SEGMENTS OF LOGIC. 


~~ so é 
RARALLSSLSLKSRAL LESS 


1 

107 PART B THEN CHECKS THE SPECIAL ABORT SEQUENCES, THE MFPI/MTPI 
108 INSTRUCTIONS AND THE CSM INSTRUCTION. 

110 1.2 REQUIREMENTS 

ee en ea 

113 A PDP 11/44 PROCESSOR WITH A MINIMUM OF 16K OF MEMORY 

114 AND A CONSOLE TERMINAL ARE REQUIRED TO RUN THE PROGRAM 

115 UNLESS THE PROGRAM IS RUNNING UNDER APT OR ACT IN WHICH 

3 CASE THE CONSOLE TERMINAL IS NOT NECESSARY. 

11g 1.3 RELATED DOCUMENTS AND STANDARDS 

120 

121 1 ACT11/XXDP PROGRAMMING SPECIFICATION 

122 2 STANDARD APT SYSTEM TO A PDP11 DIAGNOSTIC INTERFACE 
123 5. DIAGNOSITC ENGINEERING STANDARDS AND CONVENTIONS 

124 4. PDP11 MAINDEC SYSMAC PACKAGE 

129 5 XXDP USER'S MANUAL 

127 1.4 PRELIMINARY PROGRAMS 

Sine a ae . 

130 BEFORE THIS MEMORY MANAGEMENT DIAGNOSITC IS RUN, THE 

13 FOLLOWING DIAGNOSTICS SHOULD BE RUN: 

133 CKKAAAO 11/4 CPU/EIS 

} CKKABAO TRAPS 

136 ALSO, THE MAIN MEMORY DIAGNOSTIC (CZMSD) SHOULD BE RUN TO SCAN 
137 AT LEAST THE FIRST 16K TO SEE THAT A PROGRAM CAN BE EXECUTED. 
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OPERATING INSTRUCTIONS 


THE PROGRAM IS SUPPLIED ON THE DIAGNOSTIC LOAD MEDIA. 
REFER TO THE XXDP USER'S MANUAL FOR FURTHER INFORMATION. 
FOR USE WITH ACT OR APT, REFER TO THEIR RESPECTIVE 
DOCUMENTS. THE PROGRAM CAN ALSO BE DIRECTLY LOADED 
USING THE ABSOLUTE LOADER AND THE BINARY PAPER TAPE. 


STARTING PROCEDURES 


T; PROGRAM IS STARTED BY LOADING ADDRESS 200 AND 

S TING. THE SWITCH REGISTER SHOULD BE SET ACCORDING TO 
S| i ION 2.3 BEFORE THE PROGRAM IS STARTED. HOWEVER, IF 
DESIRED, THE PROGRAM WILL USE THE SOFTWARE SWITCH REGISTER 
AT LOCATION 176 (LOCATION 174 WILL BE USED AS THE SOF TWARE 
DISPLAY REGISTER). IN THAT CASE, THE PROGRAM WILL ASK FOR 
THE INITIAL SWITCH REGISTER VALUE BY TYPING ‘‘SWR= XXXXXX 
NEW= ‘' AFTER TYPING THE NAME OF THE PROGRAM (XXXXXX = 
THE OCTAL CONTENTS OF LOCATION 176). (SEE SECTION 2.4) 


ALSO THE PROGRAM CAN BE MADE TO USE THE SOFTWARE SWITCH 
REG. EVEN IF THE CONSOLE SWITCH REG. IS PRESENT BY LOADING 
'"77777' INTO THE CONSOLE SWITCH REG. BEFORE STARTING 

THE PROGRAM. 
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2.3 CONTROL SWITCH SETTINGS 


Sw15 100000 


Sw14 040000 
Sw13 020000 


Swi2 010000 


Sw10 002000 


Sw9 001000 


Sw8 000400 


LOOP ON 


INHIBIT 


INHIBIT 


BELL ON 


SEQUENCE 


ERROR 

THIS SWITCH WHEN SET WILL HALT 
THE PROCESSOR WHEN AN ERROR IS 
DETECTED AFTER THE ERROR MESSAGE 
HAS BEEN TYPED. PRESSING CONTINUE 
WILL RESUME TESTING (SEE SECTION 
3.1 ABOUT LOADING THE SWITCH REG 
BEFORE CONTINUING). 


TEST 

THIS SWITCH WHEN SET WILL 
CAUSE THE PROGRAM TO LOOP 
THE CURRENT SUBTEST. 


ERROR TYPEOUTS 

THIS SWITCH WHEN SET WILL 
INHIBIT THE TYPING OF ERROR 
MESSAGES. 


TRACE TRAP 

THIS SWITCH WHEN SET WILL 
INHIBIT T-BIT TRAPPING WHICH 
NORMALLY TAKES PLACE DURING 
EVERY OTHER PASS STARTING 
WITH THE THIRD PASS. 


ERROR 

THIS SWITCH WHEN SET WILL RING 
THE CONSOLE TERMINAL BELL WHEN 
AN ERROR HAS BEEN DETECTED. 


LOOP ON ERROR 


LOOP ON 


THIS SWITCH WHEN SET WILL 

CAUSE THE PROGRAM TO LOOP ON THE 
FIRST FAILURE WHICH IS ENCOUNTERED 
EVEN IF THE FAILURE IS INTERMITTANT 


TEST IN SWR<7:0> 

THIS SWITCH WHEN SET WILL 

CAUSE THE PROGRAM TO LOOP ON THE 
TEST WHOSE TEST NUMBER IS SET 

IN BITS 7-0 OF THE SWITCH REG. 


H 1 
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214 2.4 LOADING THE SWITCH REGISTER 

Reg ee ere ea 

217 THE CONSOLE SWITCH REGISTER PROVIDED IS LOADED DIRECTLY FROM 
218 THE CONSOLE BY TYPING A CONTROL P (“P), THEN WHEN N THE CONSOLE 
219 PROMPT IS RECIEVED, TYPE ‘D SW XXXXXX'', WHERE ‘‘XXXXXX'" IS THE 
220 INTENDED VALUE OF THE SWITCH REGISTER. THE VALUE OF THE 

221 CONSOLE SWITCH REG. CAN BE CHANGED ANY TIME WHETHER THE PROGRAM 
ss¢ IS RUNNING OR NOT. 

224 TO LOAD THE SOFTWARE SWITCH REG. WHILE THE PROGRAM IS 

225 RUNNING, A CONTROL G (*G) SHOULD BE TYPED ON THE CONSOLE 

226 TERMINAL. (THE ''SCOPE’’ AND ‘'ERROR'' ROUTINES CHECK TO SEE 

2c? IF A *G HAS BEEN TYPED.) THE ORIGINAL VALUE OF THE SOFTWARE 
ese SWTICH REG. WILL BE REQUESTED AS MENTIONED IN SECTION 2.2. 
230 IN RESPONSE TO A “G OR AT THE BEGINNING OF THE PROGRAM, THE 
$e PROGRAM WILL TYPE: 

st: SWR = XXXXXX NEW = 

235 WHERE ‘*XXXXXX"' IS THE CURRENT OCTAL CONTENTS OF LOC. 176. 

236 THE OPERATOR MAY THEN TYPE ANY ONE OF THE FOLLOWING: 

237 XXXXXX<CR> ONE TO SIX OCTAL DIGITS FOLLOWED BY A 

238 CARRIAGE RETURN WHICH WILL BE LOADED 

239 AS THE NEW VALUE FOR THE SWITCH REG. 

240 <CR> JUST A <CR>, LEAVES THE SWITCH REG. 

241 AS IT IS. 

242 XXX*U A CONTROL-U (“U) WILL CAUSE ALL OF THE 

243 DIGITS TYPED SO FAR TO BE IGNORED. 

244 “~ WILL CAUSE THE PROGRAM TO TYPE THE PRESENT 
245 TEST AND PASS NUMBERS, REQUEST A NEW VALUE 
246 FOR THE SWITCH REG., AND JUMP TO THE END- 

247 OF-PASS ROUTINE SO THE PROGRAM WILL GO DIRECTLY 
248 TO THE NEXT PASS WITH A NEW SW. REG. VALUE 
249 <ILL.CHAR> ANY CHARACTER TYPED WHICH IS NOT ANY OF THE 
250 ABOVE OR AN OCTAL DIGIT WILL CAUSE THE PROGRAM 
251 TO TYPE A **?<CRLF>'* AND REACT AS THOUGH A 
$36 “U HAD BEEN TYPED. 

254 NOTE: RECOGNITION OF A “G MAY BE HAMPERED BY 

oe Fer (ARPS Sie ne EXECUTION OF A COUPLE ‘RESET’ INSTRUCTIONS 

$28 WITHIN THE PROGRAM. 

258 2.5 EXECUTION TIMES 

be R/S een 

260 

261 THE RUN TIME FOR A SINGLE PASS WITH TRACE TRAPPING 


262 ENABLED IS APPROXIMATELY 5 SECONDS WITH CACHE. 
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3.0 


3.1 


3.2 


ERROR INFORMATION 


IF AN ERROR IS DETECTED, THE PROGRAM WILL TRAP TO THE 
ERROR HANDLING ROUTINE ($ERROR). THE VALUE OF BITS 
15.13.10, AND 9 IN THE SWITCH REGISTER ARE CONSIDERED 
IN REPORTING AN ERROR (SEE SECTION 2.3). THE 

ERROR INFORMATION WILL BE TYPED UNLESS SW13 = 1. 


IF SW15 = 1, THE PROCESSOR WILL HALT AFTER THE ERROR IS 
REPORTED. IF THE CONTENTS OF THE SOFTWARE SWITCH REGISTER 
ARE TO BE CHANGED, A “G SHOULD BE TYPED BEFORE PRESSING 
"CONT INUE’’ TO RESUME TESTING. 


IF SW9 = 1 (LOOP ON ERROR), THE PROGRAM WILL GO TO THE 
ADDRESS CONTAINED IN LOCATION ‘‘SLPERR''. AFTER REPORTING 
THE ERROR. ‘‘SLPERR'' IS SET BY EACH “‘SCOPE’* CALL AND IS 
SET DIRECTLY DURING SOME SUBTESTS TO PROVIDE THE SMALLEST 
LOOP FOR LOOPING ON ERROR. IF SW9 = 0, THE PROGRAM WILL 
RETURN TO THE INSTRUCTION FOLLOWING THE ERROR CALL. 

(SEE SECTION 5.3 FOR MORE ON ‘LOOP ON ERROR"’). 


INTERPRETING ERROR REPORTS 


EVERY ERROR REPORT TYPES THE NUMBER OF THE TEST IN WHICH 

THE ERROR TOOK PLACE (TESTNO) AND THE LOCATION OF THE 

ERROR CALL (ERRORPC). THESE TWO VALUES PINPOINT THE 

PLACE IN THE CODE THAT THE ERROR OCCURRED. BY REFERRING 

TO THE PROGRAM LISTING, THE OPERATOR CAN THEN READ THE 
COMMENTS ASSOCIATED WITH THAT PARTICULAR ERROR AND SUBTEST. 
A DESCRIPTION OF THE TEST FOUND IN THE PROGRAM LISTING 

WILL ALSO PROVIDE THE OPERATOR WITH INFORMATION ON THE LOGIC 
AND FUNCTIONS BEING TESTED. 


EVERY ERROR REPORT ALSO TYPES AN ERROR MESSAGE 
GIVING A VERBAL DESCRIPTION OF THE ERROR THAT HAS 
BEEN DETECTED. 


BY USING THE COMMENTS AND TEST DESCRIPTION FOUND IN 
THE PROGRAM LISTING TO DETERMINE WHAT FUNCTION OR 
LOGIC WAS BEING TESTED, THE OPERATOR CAN THEN REFER 
TO THE ENGINEERING DRAWINGS TO ISOLATE THE PROBABLE 
CAUSE FOR THE FAILURE. 


SEQUENCE 


CKKTBCO 11/44 MEM MGMT PRT B 


WWNWWNAWANA 
a ee et ow eet od 
OWNAWEWIR HO 


320 
3 


J 1 
MACRO M1113 28-MAR-81 13:04 PAGE 10 


3.3 


3.4 


SAMPLE ERROR REPORT 


BELOW IS AN EXAMPLE OF AN ERROR WHICH COULD HAVE 
OCCURRED DURING EXECUTION OF THE PROGRAM: 


MEM. MGMT. REG. BITS NOT SET pa ay 

REGISTR WROTE READ READ-(BINAR 

ADDRESS (OCTAL) (OCTAL) B85 09876545210 TESTNO ERRORPC 
177572 040000 060000 0110000000000000 000012 022060 


WE SEE THAT THE ERROR OCCURRED IN TEST 12 AT LOCATION 
022060. THE ‘REGISTER ADDRESS" * TELLS US THAT WE WERE 
TESTING MEMORY MANAGEMENT'S STATUS RGISTER_O (SRO). 

IN THE LISTING, THE TEST DESCRIPTION SAYS THAT THE 
ERROR BITS (BITS <15:13>) OF bo WERE BEING SET AND 
CLEARED INDIVIDUALLY. THE ERROR REPORT SAYS WE TRIED 
TO SET BIT 14 BY WRITING *040000°" TO SRO BUT WHEN WE 
READ IT BACK WE READ ‘060000°'. JT APPEARS THAT BIT 13 IS 
STUCK AT “"I"* OR IT IS GETTING SET WHEN BIT 14 IS SET 
TO ‘'', ERROR REPORTS BEFORE AND AFTER THIS ONE COULD 
TELL US WHICH IS THE CASE. 


POWER MONITOR BIT ERRORS 


WHEN THE POWER MONITOR BIT (BIT 0 OF THE CPU ERROR REGISTER) BECOMES 
SET DURING THE RUNNING OF THIS DIAGNOSTIC, THE $SCOPE ROUTINE WILL 
CALL AN ERROR. IF THE BIT SHOULD BECOME SET AFTER THE $SCOPE ROUTINE 
AND BEFORE AN ERROR, AND THE ERROR IS CALLED FOR ANY REASON, THE ERROR 
ROUTINE WILL CALL Tiwor ERRORS. THE FIRST ERROR WILL BE THE POWER 


PRINTED. IN ANY CASE, LOOP-ON-ERROR IS DISABLED FOR THIS ERROR ONLY. 
IT IS RECOMMENDED THAT IF THIS ERROR SHOULD BE CALLED, THAT THE PROBLEM 
CAUSING THE BIT TO BE SET BE REPAIRED BEFORE RELYING ON THE RESULTS OF 
RUNNING THIS DIAGNOSTIC. 


SEQUENCE 


CKKTBCO 
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4.0 


4.1 


4.2 


4.3 


4.4 


MISCELLANEOUS INFORMATION 


THE PROGRAM IS FULLY ACT AND APT COMPATABLE 
AND IS SUPPORTED UNDER THE XXDP PACKAGE. 


END-OF -PASS MESSAGE 


AT THE END OF EACH PASS OF THE PROGRAM THE PASS NUMBER 
AND TOTAL NUMBER OF ERRORS SINCE THE LAST END-OF=PASS ARE 
REPORTED IN THE END-OF-PASS MESSAGE. FOR EXAMPLE: 


END OF PASS #2 TOTAL ERRORS SINCE LAST REPORT 0 


THAT WOULD INDICATE THAT PASS TWO WAS JUST COMPLETED 
AND NO ERRORS WERE DETECTED DURING THAT PASS. BOTH 
THE PASS NUMBER AND NUMBER OF ERRORS ARE DECIMAL NUMBERS. 


T-BIT TRAPPING 


THE *T-BIT'* (BIT 4) IN THE PROCESSOR STATUS WORD IS SET 

BY AN ‘RTI'' IN THE END-OF-PASS ROUTINE FOR_EVERY OTHER PASS 
BEGINNING WITH THE THIRD PASS (PASSES 3,5,7,9...). T-BIT 
TRAPPING CAN BE INHIBITED BY SETTING BIT i2°= 1 IN THE SWITCH 
REGISTER (SEE SECTION 2.4). 


POWER FAILURE HANDLING 


IF A POWER FAIL OCCURS (FOLLOWED BY A POWER UP), THE 
MESSAGE ‘POWER FAILURE-RESTARTING’’ IS TYPED OUT AND 
THE PROGRAM WILL RESTART EXECUTION AT “‘START:** (THE 
VERY BEGINNING OF THE PROGRAM. IF THE SOFTWARE 

+ bl a ccaleae IS BEING USED, ITS CONTENTS WILL BE 


10 
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PHYSICAL BUS ADDRESS CONSTRUCTION 


BELOW IS A SIMPLIFIED DIAGRAM OF HOW THE MEMORY 
MANAGEMENT LOGIC CONSTRUCTS A PHYSICAL BUS ADDRESS 
USING THE VIRTUAL ADDRESS AND THE PAGE ADDRESS REGISTER. 
THE PAGE DESCRIPTOR REGISTER SELECTED WILL CONTAIN THE 
PAGE EXPANSION, LENGTH, AND ACCESS INFORMATION. 


12 11 10 09 08 07 06 05 04 03 02 01 00 


(ADDED TO) 
15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 


ee ae at as ns ne be ne 


<i 


21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 


*= VBA BITS <15:13> SELECT THE APPROPRIATE PAR AND PDR 
**= PSW MODE BITS <15: a SELECTS THE USER (=11), SUPERVISOR 
(=01) OR KERNEL (=00) SET OF PAR*S/PDR'S 


PAR** 
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5.0 


5.1 


4 


PROGRAM DESCRIPTION 


FOLLOWING IS A LIST OF THE SUBROUTINES AND HANDLERS USED 
BY THIS PROGRAM THAT ARE NOT PROVIDED BY THE ‘'SYSMAC 
wen he tou OF THE SUBROUTINES UNIQUE TO THIS 
PROGRAM MAY BE FOUND IN THE PROGRAM LISTING. REFER TO 
a “SYSRAC” DOCUMENT AND PROGRAM LISTING FOR THE OTHER 


1. TURN OFF T=-BIT AND SAVE CURRENT PSW 

2. TURN ON T-BIT AND RESTORE PREVIOUS PSW 

3. SET ALL WRITEABLE BITS IN ALL PAR/PDR'S 

4. CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 


NOTE ALSO THAT THE MACRO LIBRARY USED TO ASSEMBLE THIS PROGRAM 
HAS OTHER SPECIAL ROUTINES APPENDED TO THE SYSMAC MACRO PACKAGE; 
A me Y MUST BE USED TO ASSEMBLE EITHER PART A OR PART 8 


PROGRAM LISTING 


A TABLE OF CONTENTS APPEARS AT THE BEGINNING OF THE LISTING 
WHICH CONTAINS THE NAMES OF EACH SECTION, SUBTEST, AND 
on oe AND THE LINE NUMBERS CORRESPONDING TO THE “START OF 


FOLLOWING THIS SECTION OF DOCUMENTATION IS THE ACTUAL 
PROGRAM LISTING COMPLETE WITH SUBTEST DESCRIPTIONS AND 
“CODING COMMENTS". 


SEQUENCE 


12 
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5.3 


USING THE PROGRAM TO DIAGNOSE A FAULT 


WHEN AN ERROR OCCURS, ONE OF THE THINGS THAT'S IMPORTANT 
TO NOTE IS WHAT PASS THE ERROR OCCURRED ON. IF THE PASS 
NUMBER IS ODD AND IS THREE OR GREATER, THE ERROR MIGHT BE 
T-BIT SENSITIVE. TRY RUNNING THE PROGRAM AGAIN WITH BIT 
12 OF THE SWITCH REG. EQUAL TO ‘l** TO INHIBIT T-BIT 
TRAPPING. THIS SHOULD HELP YOU DETERMINE WHAT MAKES THE 
MACHINE FAIL AND WHEN. 


IF YOU HAVE BEEN RUNNING WITH BIT 15 OF THE SWITCH 

REG. EQUAL TO ‘'0'', THEN YOU ARE ABLE TO LOOK AT ALL 

THE ERRORS ae MAY BE RELATED TO THE FAULT YOU ARE 
DIAGNOSING. FAULT IN AN EARLIER TEST a My ty IN 
ERRORS DURING. LATER TESTS WHICH MAY GIVE YOU MORE 

CLUES ABOUT THE NATURE OF THE FAULT. NOW USE THE METHOD 
OUTLINED IN SECTION 3.2 FOR EACH ERROR TO GATHER AS 
MUCH INFORMATION AS POSSIBLE. 


NOW TO TEST YOUR IDEAS ON THE CAUSE OF THE FAILURE, 

YOU MAY WANT TO SCOPE THIS ERROR CONDITION. SET BIT 09 
A THE SWITCH REG. EQUAL TO ‘‘l’' TO LOOP ON THE Bh wy 
FOR AN EVEN TIGHTER SCOPE LOOP THE ERROR CALL CAN BE 
REPLACED WITH A BRANCH (REFER TO COMMENTS BY ERROR CALLS 
IN THE PROGRAM LISTING). 


OR YOU COULD LOOP ON THE TEST BY EITHER SETTING BIT 14 

OF THE SWITCH REG. EQUAL TO “‘l"’ OF BY SETTING BIT 08 OF THE 
SWITCH REG. EQUAL TO ‘‘l** AND THEN SETTING THE TEST yo g 
IN BITS 07-00 OF THE SWITCH REG. YOU WILL PROBABLY WAN 


TO 
INHIBIT emer TYPEOQUIS BY SETTING BIT 13 OF THE SWITCH REG. 


EQUAL TO 


SEQUENCE 
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956 

957 -TITLE CKKTBCO ies" MEM MGMT PRT B 
z*COPYRIGHT (C) 1981 
:*DIGITAL EQUIPMENT CORP. 
;*MAYNARD, MASS. 01754 


THIS PROGRAM WAS ASSEMBLED age THE PDP=11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11-DZQAC-C5), . 1981. 





958 * SBTTL OPERATIONAL SWITCH SETTINGS 
** 
3* SWITCH USE 
ES SS SS 
:* 15 HALT ON ERROR 
3* 14 LOOP ON TEST 
3* 13 INHIBIT ERROR TYPEOUTS 
3* 12 INHIBIT TRACE TRAP 
3* 10 BELL ON ERROR 
:* 9 LOOP ON ERROR 
8 LOOP ON TEST IN SWR<7:0> 
959 *SBTTL BASIC DEFINITIONS 
:*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
001100 STACK= 1100 
104000 ERROR=EMT 
SCOPE=IOT 
jn SCEL) EOS DEF INITIONS 
000011 HT= 11 ::CODE FOR HORIZONTAL TAB 
000012 LF= 12 ::CODE FOR LINE FEED 
000015 CR= 15 +s CODE FOR CARRIAGE RET 
000200 CRLF= 200 :CODE FOR CARRIAGE RETURN-L INE FEED 
177776 PS= 177776 + : PROCESSOR STATUS WORD 
177776 PSW=PS 
177774 STKLMT= 177774 4b Hee LIMIT REGISTER 
177772 PIRQ= 177772 PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 177570 ; s HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 sHARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEF INI TIONS 
000000 RO= x0 37:GENERAL REGISTER 
000001 R1= %1 GENERAL REGISTER 
000002 R2= %2 7:GENERAL REGISTER 
000003 R3= %3 7:;GENERAL REGISTER 
000004 R4= %4 : GENERAL REGISTER 
000005 R5= %5 7: GENERAL REGISTER 
000006 R6= %6 3: GENERAL REGISTER 
000007 R7= %7 7: GENERAL REGISTER 
000006 SP= %6 : STACK POINTER 
000007 PC= %7 PROGRAM COUNTER 
s*PRIORITY LEVEL DEF INITIONS 
PRO= 0 :zPRIORITY LEVEL 0 
0 PR1= 40 : PRIORITY LEVEL 1 
000100 PR2= 100 ::PRIORITY LEVEL 2 
000140 PR3= 140 :;PRIORITY LEVEL 3 
000200 PR4= 200 : PRIORITY LEVEL 4 
000240 PR5= 240 : PRIORITY LEVEL 5 
000300 PR6= 300 : PRIORITY LEVEL 6 
340 PR7= 340 :;PRIORITY LEVEL 7 





rage 
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3*' SWITCH REGISTER’ SWITCH DEFINITIONS 
SW15= 00000 


SWil= 4 

Sw10= 2000 

swo9= 1000 

sw08= 400 

swO7= 200 

SwO6= 100 

SwO5= 40 

Swo4= 2 

swO3= 10 

SwOe= 4 

Sswol= 2 

swoo= 1 
SW9=SW09 
SW8=Sw08 
SW7=Sw07 

=Sw06 

Sw5=Sw05 
SW4=SW04 
SW3=Sw03 
SW2=Sw02 
SwW1=Sw01 
SWwO=SwW0 

z*DATA BIT DEFINITIONS (BITOO TO BIT15) 

BIT15= 100 

BIT14= 40000 

BIT13= 20000 

BIT12= 10000 

BIT11= 4000 

BIT10= 2000 

BITO9= 1000 

BITO8= 400 

BITO7= 200 

BITO6= 100 

BITO5= 

BIT04= 20 

BITO3= 10 

BITO2= 4 

BITO1= 2 

BI TO0= 
BIT9=BITO9 
B1T8=B1108 
BIT7=BIT07 
B1T6=B1T06 
BITS=BITO5 
BIT4=BI1T04 
B1T3=B1T03 
BIT2=BITO2 
oT eT 
B1T0=B1T00 

; *BASIC ae TRAP mee ADDRESSES 
ERRVEC= 4 TIME OUT AND OTHER ERRORS 


RESVEC= 10 [IRESERVED AND ILLEGAL INSTRUCTIONS 


15 
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000250 
177572 
177574 


177576 
172516 


177616 
177620 


177636 


~ 177640 


177676 


172200 
172202 
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TBITVEC=14 z3° 7" BIT 
TRIVEC= 14 ; TRACE TRAP 
TVEC= 14 ; ;BREAKPOINT TRAP (BPT) 
IOTVEC= 20 ; INPUT/OUTPUT TRAP (IOT) **SCOPE** 
PWRVEC= 24 > :POWER FAIL 
EMTVEC= 30 EMULATOR TRAP (EMT) **ERROR** 
TRAPVE C=34 3‘ 'TRAP’* TRAP 
TKVEC= 60 :TTY KEYBOARD VECTOR 
TPVEC= 64 TTY PRINTER VECTOR 
6 ee 240 PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL MEMORY MANAGEMENT’ "DEFINITIONS 
KT VECTOR ADDRESS 


MMVEC= 250 
3*KT11 STATUS REGISTER ADDRESSES 
0 177572 


516 
;*USER ‘‘I'' PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 


PAR7= 177676 
RVISOR ‘‘I*’ PAGE DESCRIPTOR REGISTERS 


3 *SUPE 
SIPDRO= 
SIPDR1= 


172200 
172202 


SEQUENCE 
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MEMORY MANAGEMENT DEFINITIONS 


172204 SIPDR2= 172204 
172206 SIPDR3= 172206 
172210 SIPDR4= 172210 
172212 SIPDRS= 172212 
172214 SIPDR6= 172214 
172216 SIPDR7= 172216 
;*SUPERVISOR ‘D''sPAGE DESCRIPTOR REGISTERS 
172220 SDPDRO= 172220 
172222 SDPDR1= 172222 
172224 SDPDR2= 172224 
172226 SDPDR3= 172226 
172230 SDPDR4= 172230 
172232 SDPDR5= 172232 
172234 SDPDR6= 172234 
172236 SDPDR7= 172236 
;*SUPERVISOR ‘'I'' PAGE ADDRESS REGISTERS 
172240 SIPARO= 17224 0. 
172242 SIPARI= 172242 
172244 SIPAR2= 172244 
172246 SIPAR3S= 172246 
172250 SIPAR4= 172250 
172252 SIPARS= 172252 
172254 SIPAR6= 172254 
172256 SIPAR7= 172256 
;*SUPERVISOR ‘D’’ PAGE ADDRESS REGISTERS 
172260 SDPARD= 172260 
172262 SDPAR1= 172262 
172264 SDPAR2= 172264 
172266 SDPAR3= 172266 
172270 SDPAR4= 172270 
172272 SDPARS= 172272 
172274 SDPAR6= 172274 
172276 SDPAR7= 172276 
7*KERNEL “'I'' PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 172300 
172302 KIPDR1= 172302 
172304 KIPDR2= 172304 
172306 KIPDR3= 172306 
172310 KIPDR4= 172310 
172312 KIPDR5= 172312 
172314 KIPDR6= 172314 
172316 KIPDR7= 172316 
3 *KERNEL SF AGE DESCRIPTOR REGISTERS 
172320 KOPDRO= 172320 
172322 KDPDR1= 172322 
172324 KDPDR2= 172324 
172326 KDPDR3= 172326 
172330 KDPDR4= 172330 
172332 KDPDR5= 172332 
172334 KDPDR6= 172334 
172336 KDPDR7= 172336 
7*KERNEL ‘'I'' PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPAR1= 172342 
172344 KIPAR2= 172344 
172346 KIPAR3= 172346 
172350 KIPAR4= 172350 


pce 


| CKKTBCO 11/44 MEM MGMT PR 


MEMORY MANAGEMENT DEF INIT 


NN 
nmr 
Ww 
Ww 
Oo 


NNNNNNNN 
MONMNMONPOPYNoPry 
GEES 
NJ 
oO 


me 
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KIPARS= 172 
KIPAR6= 172354 
KIPAR7= 172 
> *KERNEL ' 
KDP = 


AR7= 172376 
:*ADDITIONAL DEFINITIONS 
** 


U 

TBIT=BITS 

WBIT=BIT6 
CPUERR=177766 
KERSTK=STACK 
SUPSTK=STACK~200 
USESTK=STACK-300 


SEQUENCE 


18 
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TRAP CATCHER 


1008 
000000 


000174 
000174 000000 
000176 9000000 


000200 000137 020000 


G_2 
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.SBTTL TRAP CATCHER 


=0 
7 *ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT"' 
S*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERR UPTS 
:#LOCATION, 9, CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: ot 0 3; SOFTWARE DISPLAY REGISTER 
SWREG: -WORD 0 7; SOFTWARE SWITCH REGISTER 


.SBTTL STARTING ADDRESS(ES) 
JMP Q@ASTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


_—_—} 





H 2 
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ACT11 HOOKS 


1009 “SBITL ACT11 HOOKS 
LRA RRR ERA REE E EERE AERA EERE EERE E ERA R EAA ERE R EAR ES 
“HOOKS REQUIRED BY ACT11 
000204 $SVPC=. s SAVE PC 
000046 =46 
000046 056120 SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
000052 000000 "WORD 0 ::2)SET LOC.52 TO ZERO 
000204 .=$SVPC zz RESTORE PC 


I 2 
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APT PARAMETER BLOCK 


1010 .SBTTL APT PARAMETER BLOCK 


FERRARA TREE RARER AEE EAA AA RARE AAA E RAE AER R EARL AREER EES | 
“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
PERRET E REE EEE A ERE R EERE E EERE E EEE ES 
000204 -$X=.  ;;SAVE CURRENT LOCATION | 
000024 "=24  ::SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 ::FOR APT START UP 
000044 -=44 :POINT TO APT INDIRECT ADDRESS PNTR. 
000044 000204 $APTHDR ::POINT TO APT HEADER BLOCK 
000204 "=.$X | ::RESET LOCATION COUNTER 
LER E EEE REAR EAA REA AERA E RA R AERA ERR ERE ES 
“SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
j INTERFACE SPEC. 


000204 000000 $HIBTS: .WORD 0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

000206 001224 $MBADR: .WORD $MAIL  ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

000210 000002 $TSTM: .WORD 2 3;RUN TIM OF LONGEST TEST 

000212 000005 $PASTM: .WORD 5 :;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

000214 000005 $UNITM: .WORD 5 *:ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
600216 000014 .WORD $ETEND-$MAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 





| ¢ s 
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COMMON TAGS 


1011 


S888888888888838838833sssssssss 


S88888888sss S8sSsss 


— — wd od 


ee ee ek ek ek ek kd ad od ed od od = = I 
eee ee kk kk a a tk td od ot td 2 ot SS St SS Ss 


meee ek ed ed ed od od ee 


— oI 


MOMNNNMMNVVVKY 


as) 


RRVSAARNVOKRAVSS 


RNSERV 


SRELVSO 


NOAUBNMOO RNOR 


377 


000 


377 


-SBTTL COMMON TAGS 


SEQUENCE 22 


RRR ERE ERE RARER REE EREREREEEEEEEREEEEREEEEKEREEEE EEE 


‘THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


>*USED IN THE PROGRAM. 
-=1100 


SCMTAG: 
«WORD 0 
STSTNM: .BYTE QO 
SERFLG: .BYTE 0O 
SICNT: .WORD 0O 
$LPADR: .WORD 0 
$LPERR: .WORD 0 
SERTTL: .WORD 0 
SITEMB: .BYTE 0 
-BYTE 1 
SERRPC: .WORD 0 
$GDADR: .WORD 0 
$BDADR: .WORD 0 
$GDDAT: .WORD 0 
$BDDAT: .WORD 0 
.~ WORD 0 
WORD 0 
$AUTOB: .BYTE 0 
SINTAG: .BYTE 0 
~ WORD 0 
: é D DSWR 
DISPLAY: .WORD DDISP 
TKS: 177560 
$TKB: 177562 
$TPS: 177564 
$TPB: 177566 
LL: BYTE 0 
$FILLS: .BYTE 2 
$FILLC: .BYTE 12 
$TPFLG: .BYTE 0 
SREGAD: .WORD 0 
~REPT $CM3 
$REGO . WORD 0 
$REG1 «WORD 0 
$REG2 .- WORD 0 
$REGS . WORD 0 
$REG4 WORD 0 
$REGS: .WORD 0 
REPT 6 
STMPO: .WORD 0O 
$TMP1: .WORD 0 
$TMP2: .WORD 0 
$TMP3: .WORD 0 
$TMP4: .WORD 0 
T™™P5: .WORD 0 
SESCAPE:0 
$BELL: .ASCIZ <207><377><377> 
$QUES: .ASCII /?/ 
$CRLF: .ASCII <15> 
SLF: eASCIZ <12> 


33START OF 


3 CONTAINS 
7: CONTAINS 


3: CONTAINS 


COMMON TAGS 


THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
oP DR 


TOTAL ERRORS DETECTED 

ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD* DATA 
ADDRESS OF ‘*BAD* DATA 

*"GOOD’ DATA 

*BAD’ DATA 


7 RESERVED--NOT TO BE USED 


3 AUTOMATIC MODE INDICATOR 
32 INTERRUPT MODE INDICATOR 


7;ADDRESS OF SWITCH REGISTER 

;zADDRESS OF DISPLAY REGISTER 

33sTTY KBD STATUS 

3;TTY KBD BUFFER 

3zTTY PRINTER STATUS REG. ADDRESS 

7: TTY PRINTER BUFFER REG. ADDRESS 
z:CONTAINS NULL CHARACTER FOR FILLS 
3:CONTAINS # OF FILLER CHARACTERS REQUIRED 
77 INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
77''‘TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
7:CONTAINS THE ADDRESS FROM 

:zWHICH ($REGO) WAS OBTAINED 


3: CONTAINS 


( ($REGAD) +0) 
( ($REGAD) +2) 
( ($REGAD) +4) 
( ($REGAD) +6) 


7: CONTAINS (($REGAD) +10) 
7:CONTAINS (($REGAD) +12) 


7 USER DEFINED 
: USER DEFINED 
7 USER DEFINED 
: USER DEFINED 
: USER DEFINED 
: USER DEFINED 
; ESCAPE ON ERROR ADDRESS 
7:CODE FOR BELL 


3 QUESTION MARK 


3: CARRIAGE RETURN 
3sLINE FEED 


K 2 
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COMMON TAGS 


5 RRARARKY CAAAAAAAAAAAAREAEREAAAAARAA AERA RAR AAA AAA AREA RARE EES 


"SBTTL APT MAILBOX-ETABLE 


FURR A AREA AAA ERE EEE E EERE AREER AAA REE RER EER AEE R ERR ER ERS 


.EVEN 
001224 IL: ;APT MAILBOX 
001224 000000 SMSGTY: .WORD AMSGTY : IMESSAGE TYPE CODE 
001226 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001230 000000 $STESTN: .WORD ATESTN ;;TEST 
001232 000000 ASS: .WORD APASS = ;;PASS COUNT 
001234 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
001236 000000 «WORD AUNIT ;;1/0 UNIT NUMBER 
001240 000000 $MSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
001242 000000 $MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
001244 SETABLE: ae ENVIRONMENT TABLE 
001244 000 NV BYTE AENV 3 ENVIRONMENT BYTE 
001245 000 SENVM: .BYTE AENVM  ;;ENVIRONMENT MODE BITS 
001246 000000 S$SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
001250 000000 SUSWR: .WORD AUSWR ; ;USER SWITCHES 
001252 000000 $CPUOP: .WORD ACPUOP ;;CPU TYPE, hy F 
‘Spi BITS eat | CPU T 
se 1/04=01, "5 /05= 02.11/20=03,11/40=04,11/45=05 
:* 11/702 06: PDQ=07 ,0=10 
;* BIT 10=REAL TIME CLOCK 
3° BIT 9=FLOATING POINT ——— 
Ze BIT 8=MEMORY MANAGEMENT 
001254 SE TEND 
-MEXIT 
001254 000000 TESTNO: .WORD 0 HOLDS TEST ~ os FOR TYPEOUTS 
001256 000000 WASR6: .WORD 0 ;USED TO STORE THE STACK POINTER AFTER A TRAP 
000000 TRAPPC: .WORD 0 [USED TO STORE THE PC OF A TRAP OR ABORT 
001262 000000 TRAPPS: .WORD 0 ;USED TO STORE THE PS OF A TRAP OR ABORT 
001264 000000 WASSRO: .WORD 0 ;USED TO STORE CONTENTS OF SRO 
001266 000000 WASSR1: .WORD 0 USED TO STORE CONTENTS OF SR1 
001270 000000 WASSR2: .WORD 0 ;USED TO STORE CONTENTS OF SR2 
001272 000000 WASSR3: .WORD 0 USED TO STORE CONTENTS OF SR 
001274 000000 TBITPS: .WORD OQ SAVES THE PSW THAT MAY HA TS T-BIT ON 
001276 000000 VIRT1: .WORD 0 HOLDS VIRTUAL ADDRESS TO BE CONVERTED 
001300 000000 PBALO: .WORD 0 HOLDS BITS <15:00> OF PHYSICAL ADDRESS 
001302 000000 PBAHI: .WORD 0 SHOLDS BITS <21:16> OF PHYSICAL ADDRESS 
1304 BADPC: .WORD 0 ;HOLDS PC FROM ABORT OR TRAP 
001396 000200 SMXCNT: .WORD 200 [HOLD MAX. NUMBER OF LOOP ITERATIONS 
0013 $TBIT: .WORD 0 :'T' BIT STATE INDICATOR 


10 “i 
i 136 1 015 $CNTLC: .ASCIZ /*C/<15><12> : CONTROL C 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 
seTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
 *LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


+ *NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC) 
‘ ®NOTE2: EACH ITEM IN _ TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
3* EM :;POINTS TO THE ERROR MESSAGE 
toed DH :;POINTS TO THE DATA HEADER 
7* DT ::POINTS TO THE DATA 
Bal DF ; POINTS TO THE DATA FORMAT 
001320 SERRTB 
1012 s*ITEM 1 
1013 001320 007512 EM1 UNEXPECTED CPU TRAP TO LOC. 004 
1014 001322 012456 DH1 OL D PC OLD PSW R6 WAS CPUERR TESTNO ERRORPC 
1015 001324 015072 DT1 TRAPPC , TRAPPS , WASR6, CPUERR, TESTNO, SERPPC ,0 
ai 001326 015643 DF12- :0,0, 0,0,0,0 
1018 7*ITEM 2 
1019 001330 007552 EM2 ’ UNEXPECTED MEM. MGMT. TRAP TO LOC. 250 
1020 001332 012536 DH2 sOLD PC OLD PSW R6 WAS SRO SR2 TESTNO ERRORPC 
015110 DT2 :TRAPPC, TRAPPS, WASR6, WASSRO, WASSR2, TESTNO, SERRPC, 0 
015625 DF2 :0, 0,0,0.0.0.0 
s*I1TEM 3 
007621 EM10 eg MGMT. ACCESS ABORT DID NOT OCCUR 
012626 DH10 PDR PSW TESTNO ERRORPC 
015130 DT10 eRe. $TMPO, TESTNO, SERRPC .0 
015634 DF3 70,0,0.0 ‘ 
ss ITEM 4 
007671 —EM11 why —— DID NOT ABORT INSTRUCTION 
012626 DH10 TESTNO ERRORPC 
015130 DT10 ‘CRE? STM, TESTNO,SERRPC,.0- 
015634 DF3 70,0,0.0 
s*ITEM 5 
007740 EM12 ;SRO DID NOT sg es ERROR CORRECTLY 
012666 DH12 * SRO WAS EXPECTD PDR PSW TESTNO ERRORPC 
015142 DT12 *WASSRO, $REG3,$REG2, STIPO. TESTNO, SERRPC ,0 
015643 DF12 70,0,0,0,0,0 
7*ITEM 6 
010012 EM13 ;SR2 DID NOT aoa CORRECT VIRTUAL ADDR 
012746 DH13 :SRe WAS EXPECT R4 PSW TESTNO ERRORPC 
015160 DT13 SSR2,$REG4, SREGS. RS TMPO. TESTNO, SERRPC .0 
015643 DF12 ‘600.6-0.0 








1075 001446 
1076 


1077 
1078 001450 
1079 001452 


1080 
1081 001454 
1082 001456 


sis 
8 
g 


SSSEBESSISSEEE 
88 883 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


3 
geese 88 
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010305 
013346 


015274 
015643 


010352 
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3*1TEM 10 


3*ITEM 11 


s*1TEM 12 


s*ITEM 13 


ITEM 14 


3* ITEM 15 


3* ITEM 16 


Se ITEM 17 


SEQUENCE 25 


;PAGE LGTH. ABORT OCCURRED WHEN IT SHOULDN'T HAVE 
3V.B.A. KIPDR4 SRO WAS SR2 WAS TESTNO ERRORPC 
S$REGO, $REG4 , WASSRO,WASSR2, TESTNO, SERRPC ,0 


e ove o e e 


tw LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE 
-A. KIPDR4 TESTNO ERRORPC 
: $REGO, $REG4, TESTNO, SERRPC .0 


e ° e 


SRO DID NOT REPORT PAGE LGTH. ABORT CORRECTLY 
7V.B.A. KIPDR4 SRO WAS EXPECTD TESTNO ERRORPC 
rw ey ,WASSRO, $REG2, TESTNO, SERRPC ,0 


7SR2 DID NOT LOCKUP CORRECT VIRUAL ADDR 
3V.B.A. KIPDR4 SR2 WAS_EXPECTD TESTNO ERRORPC 
5 eS ,WASSR2 , $REG3, TESTNO, SERRPC ,0 


;SR2 DID NOT LOCKUP CORRECT tn a ADDR. 
7SR2 WAS EXPECTD TESTNO ERRORPC 
[WASSR2,$REG1, TESTNO, SERRPC ,0 


e ove o 


SRO OR SR2 CHANGED BY A SECOND ABORT 
ZFIR oe ABORT SECOND ABORT 

7SRO WAS SR2 WA 5 $RO WAS SR2 WAS TESTNO ERRORPC 
;$TMPO, STMPD, WASSRO. WASSR2, TESTNO, SERRPC ,0 


;SRO OR SR2 WAS ote “RESET’’ BY A RESET 
[SRO WAS SR2 WAS TESTNO ERRORPC 
;WASSRO, WASSRO. TESTNO, SERRPC 0 


e e e e 


;SR2 NOT TRACKING ‘CORRECTLY 
7SRe WAS EXPECTD TESTNO ERROPC 
7WASSR2, SREG1, TESTNO, SERRPC .0 


Pi ° e e 


4464 NOT TRAP THRU KERNEL SPACE 
WAS R6 WAS TESTNO ERRORPC 
?SREGI. $REG2, TESTNO, SERRPC ,0 









ERROR POINTER TABLE 


015 


VRVRVRUVVBSananran sos 


WW AW MYR URNSS hh aelainellns aa 
Wwrhr— 


RUXUNVYULSSESEGRGSLESSLKGE 
88 
aad 
wv 
No 
oooo°o 
par Goer er Pew 
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CKKTBCO 11/44 MEM MGMT PRT B 


1510 010513 
1512 013306 
1514 262 
1516 015640 
1520 010560 
001522 013563 
001524 015336 
001526 015643 


001530 010626 
001532 013675 


001534 015354 
001536 015643 


001540 010703 
001542 014072 


001544 015372 
001546 015634 


N 
8 
= 
oO 
= 
oO 
Oo 
= 
8 
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s*ITEM 20 
EM 


7*1TEM 21 
EM26 


7*I1TEM 22 
EM27 
DH27 


DT27 
DF12 


7* ITEM 23 
—EM30 
DH30 


DT30 
DF3 


ITEM 24 
EM31 
DH30 


DT30 
DF3 


z*1TEM 25 
E 


s*1TEM 27 
EM34 
DH34 
D134 
DF 1 


st1TEM 30 
—EM35 





KT ERROR SERVICED ON ODD ADDR. ERROR 
3PDR TESTNO ERRORPC 
7$REGS, TESTNO, SERRPC ,0 


. 
e ove 


SRO OR SR2 CHANGED BY ODD ADDR. ERROR 

EXPECTED RECEIVED 

;SRO SR2 SRO WAS SR2 WAS TESTNO ERRORPC 
7$REGO,$REG1,WASSRO,WASSR2, TESTNO, SERRPC ,0 


> 
o ove ° e e 


ZERROR DURING ‘DOUBLE ERROR’ (KT & ODD ADDR.) 
EXPECTED: 


3PSW PC SRO SR2 
3170017 (3$+4) 020147 (3$) 
sRECEIVED 


;PSW PC SRO SR2 TESTNO ERRORPC 
7$REG1,$REG3,WASSRO,WASSR2, TESTNO, SERRPC ,0 


0 
e ove eve e 


z;MFPI INSTRUCTION PUSHED WRONG DATA 
DATA DATA 

sEXPECTD RECEIVD TESTNO ERRORPC 
7$REGO, $REG1, TESTNO, SERRPC .0 


. 
° e e e 


zMTPI INSTRUCTION LOADED WRONG DATA 
DATA DATA 

sEXPECTD RECEIVD TESTNO ERRORPC 
7SREGO,$REG1, TESTNO, SERRPC ,0 


STACK NOT PUSHED BY MFPI-MTPI 
:TESTNO —_ERRORPC 
; TESTNO, SERRPC 0 


© e 


KERNEL PAGE ACCESSED INSTEAD OF USER: MFPI-MTPI 
7SRO WAS SR2 WAS TESTNO ERRORPC 
7WASSRO ,WASSR2, TESTNO, SERRPC ,0 


0,0,0.0 


3M.M. ABORT IN KERNAL D-SPACE HAD WRONG CONDITION 
7 (MMRO) (MMR1) (MMR2) TESTNO ERRORPC EXPECTING 020051 
7$REG1,$REG2,$REG3, TESTNO, SERRPC 0 


. 
* evVewevVe 


ILLEGAL MODE 10 NOT ABORTED 








3 
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ERROR POINTER TABLE 


1158 001612 014146 DH32 ;TESTNO _ERRORPC 
1159 001614 015404 DT32 ; TESTNO, SERRPC ,0 
1160 001616 015651 DF 32 30,0 


27 


3 
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ERROR POINTER TABLE 


SEQUENCE 28 





1161 :*ITEM 31 

1168 001620 011242 EM36 :SRO DID NOT REPORT ILLEGAL MODE 10 CORRECTLY 
1163 001622 014316 DH36 SRO WAS EXPECTD TESTNO ERRORPC 

1164 001624 015426 DT36 *WASSRO $REG1, TESTNO, SERRPC ,0 

1165 001626 015634 DF3 0,0,0,0 

1167 *]TEM 32 

1168 001630 011317 —M37 :PSwW CHANGED BY AN RTI IN USER MODE 

1169 001632 014356 DH37 :PSW WAS EXPECTD TESTNO ERRORPC 

1170 001634 015324 DT24 :$REG1, S$REG2, TESTNO, SERRPC ,0 

ny 4. 001636 015634 DFS 70,0,0,0 

1158 x] TEM 33 

1174 00 011362 :;ABORT IN KERNAL D-SPACE PICKED UP VECTOR FROM I- SPACE 
1175 001642 014416 DH4O 3: (PSW) TESTNO ERRORPC EXPECTING XXX340 
1176 001644 015440 DT40 *$REGO, TESTNO, SERRPC 0 

1107 001646 015640 DF5 70,0,0 

1179 se ITEM 34 

1180 C01650 011447 —EM41 7D SPACE ENABLE CIRCUITRY HAS FAILED 
1181 001652 014467 DH41 ; ERROR AUTOI/D VIRTUAL 

1182 *REGISTR REGISTR ADDRESS TESTNO PC AT ABORT 
1183 001654 015450 DT41 “WASSRO, WASSR1,WASSR2, TESTNO,BADPC ,0 

Bb 001656 015620 DF1 30.V,0.U, 

1186 ss ITEM 35 

1187 001660 011513 EM42 : INCORRECT STORE BY MTP INSTRUCTION 

1188 001662 014573 _ DH42 :GDDATA STORED TESTNO ERRORPC 

1189 001664 015464 DT42 7 $REG3,$REG4, TESTNO, SERRPC 0 

Bb 001666 015634 DF3 :0,0,0.0 

1192 :*ITEM 36 

1193 001670 011556 EM43 ; TRIED TO REFERENCE NON-RESIDENT PAGE 
1194 001672 014633 DH43 > (MMRO) (MMR1) (MMR2) TESTNO ERRORPC 
1195 001674 015476 D143 * $REGO, $REG1,$REG2. TESTNO, SERRPC.0 

Bb 001676 015620 DF1 

1198 se ITEM 37 

1199 001700 011623 EM44 ; WRONG “a —— BY MFP INSTRUCTION 
1200 001702 014072 DH30 “DATA DAT 

1201 ZEXPECTD RE CEIVD TESTNO ERRORPC 

1202 001704 015372 DT30 + $RE GO, $REG1, TESTNO, SERRPC .0 

1203 001706 015634 DF3 :0,0,0, 

1204 

1205 >*1TEM 40 

1206 001710 011556 EM43 ; TRIED TO REFERENCE NON-RESIDENT PAGE 
1207 001712 014633 DH43 > (MMRO) = (MMR1) MMAR TESTNO ERRORPC 
1208 001714 015512 D145 *WASSRO, WASSR1,WASSR2, TESTNO, SERRPC .0 
1209 001716 015620 DF1 70,0,0,0, 

1211 Z* ITEM 41 

1212 001720 011671 EM45 ; ILLEGAL CSM DID NOT TRAP TO 10 

1213 001722 014146 DH32 sTESTNO ERRORPC 

1214 001724 015404 DT32 : TESTNO, SERRPC ,0 

1215 001726 015625 DF2 0.0 





rr 
=} ot 


MNMNNNMPN ] 
WONAURWN—OOOND 


MNMNonononoeflfnrypfrnn 


rrr 


001750 
001752 


2 001754 
3 001756 


001760 
001762 


001764 
iy 001766 


ee ek eek kk a a a ot a a a a ot 
BURAK 
NOU 


NMONMINNONINNoNofy fru 


W 
2) 


2 
1243 001770 
1244 001772 


5 
1246 001774 
1247 001776 


1259 002016 
isoy 


1261 

1262 002020 
1263 002022 
1264 002024 
1265 002026 
1266 


1991 002036 


CKKTBCO 11/44 MEM MGMT PRT B 
ERROR POINTER TABLE 


015620 
012031 
014072 


015372 
015620 


012060 
014072 
015540 
015620 
012116 
014072 
015552 
015620 
012142 
015634 


012207 
014146 
015404 
015640 


012253 
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s*1TEM 42 


s* ITEM 44 
EMSO 
DH30 


DT30 
DF1 


s*1TEM 45 
—EMS1 
DH30 


DT47 
DF1 


s* ITEM 46 
EMS2 
DH30 


DT50 
DF 1 


z*ITEM 47 
E 


SEQUENCE 


;CSM DID NOT ENTER SUPERVISOR MODE 
SEXPECTD (PSW) TESTNO ERR PC 
7 SREG3,ACSMPS , TESTNO, SERRPC ,0 


Ps o ’ e o 


CSM SET UP WRONG PREVIOUS MODE 
SEXPECTD (PSW) TESTNO ERR PC 
7 $REG3.ACSMPS , TESTNO, SERRPC ,0 


Py ° e o e 


CaTA BA ee — WRONG 
ZEXPECTD RECEIVD TESTNO ERR PC 
ACSMSP ,$TMPO, TESTNO, SERRPC ,0 


Py e . o o 


aeATA een: INCORRECT ARGUMENT 
SEXPECTD RECEIVD TESTNO ERR PC 
7 $REGO,CSM1ST, TESTNO, SERRPC ,0 


Py ° e e e 


:CSM PUSHED A asi PC 

‘DATA DAT 

sEXPECTD PE CEIVD TESTNO ERR PC 
$7 ret Tb , TESTNO, SERRPC ,0 


7CSM DID NOT CLEAR OLD PSW BITS <3:0> 
SOLDPSW TESTNO ERR PC 
[CSM3RD, TESTNO, SERRPC ,0 


e ° e ° 


CSM ACCESSED WRONG SUPERVISOR SPACE 
;TESTNO ERR PC 
S TESTNO, SERRPC ,0 


° ° a 


7CSM ABORTED WHEN IT SHOULD NOT HAVE 
;TESTNO ERR PC 
; TESTNO, SERRPC ,0 


7CSM FAILED TO ee ee REGISTER PROPERLY 
[TESTNO ERR PC RO EXP RO RCV 
STE STO SEAS. -STMPO, $REGO.0 


1272 

1273 002040 
1274 002042 
1275 002044 
1276 002046 
1277 

1278 

1279 

1286 

1281 

1282 

1283 

1284 

1285 002050 

1286 002050 
1287 

1288 002054 
1289 002060 
1290 002064 
1292 002070 
1293 002074 
1294 002076 
1295 002102 
296 002104 
297 002110 
298 002112 
299 002116 
300 002120 
301 002124 
302 002130 
303 002134 
304 002136 
305 002140 
306 002142 
307 002146 
308 002150 
309 002154 
310 002160 
311 002164 
312 002166 
313 002172 
314 002176 
315 002200 
316 002204 
317 002206 
318 002210 
319 002214 
320 002220 


ee ee ek a ek ek ok tk tk od td od 


= 





012700 


012702 
012701 
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077406 


172300 
000020 


172340 


172200 
172240 
177600 
172340 


172360 
000007 


000200 
177600 
177600 
172356 


172240 
172260 


172256 


177640 
177660 
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:*ITEM 53 
EM57 CSM FAILED TO PUT PROPER ARGUMENT ON STACK 
DH57 ;TESTNO ERR PC_ARGEXP _ ARGRCV 
DT57 : TESTNO, SERRPC ,$TMP1 , $TMP2,0 


0,0.0 


DF3 : 
.SBTTL INITIALIZE ALL_PAR'S AND PDR'S 


i sxee® SUBROUTINES UNIQUE TO THIS PROGRAM *x*# 
ss RRR REE KERR REREEEREEEEEERERE EERE REAR 
** 
ie THIS ROUTINE WILL INITIALIZE ALL KERNAL, SUPERVISOR, AND 
:* USER PAR'S AND PDR'S TO THEIR USUAL INITIAL VALUE 
*-* 
: i © He eH IT RRR EERE EERE EEK 
APRINIT: 
MOV #77406, RO MAKE ALL PDR*S 4K. READ/WRITE, UPWARDS 
[EXPANDING, 200 BLOCKS 
MOV #KIPDRO,R2 [LOAD THE ADDRESS OF THE FIRST KERNAL POR 
1$: MOV #20,R1 [LOAD R1 WITH 16 
2$: MOV RO, (R2)+ [LOAD EACH PDR IN TURN 
SOB R1.2$ [LOOP UNTIL ALL ARE LOADED 
CMP R2.AKDPDR7+2 HAVE WE LOADED ALL KERNAL PDR'S 
BNE 3$ “BRANCH IF KERNAL & SUPER HAVE BEEN LOADED 
MOV #SIPDRO,R2 [LOAD ALL SUPERVISOR PDR’ 
BR 1$ :BRANCH TO LOOP 
3$: CMP R2,#SDPDR7+2  :HAVE USER PDR'S BEEN DONE 
BNE 4$ “BRANCH IF THEY HAVE 
MOV #UIPDRO,R2 [LOAD ALL USER PDR'S 
BR 1$ BRANCH TO LOOP 
4$: MOV #KIPARO,R1 [LOAD R1 WITH ADDRESS OF KIPARO 
MOV #KDPAROR2 “LOAD R2 WITH ADDRESS OF _KDPARO 
Sf: MOV #7 ,R3 [LOAD LOOP COUNTER WITH 7 
CLR RO [CLEAR PAR VALUE REGISTER 
6$: MOV RO, (R1)+ ;LOAD AN I-SPACE PAR 
MOV RO, (R2)+ “LOAD A D=SPACE PAR 
ADD #200,RO ‘INCREASE THE PAR VALUE BY 200 


R3,6$ “LOOP UNTIL 7 PAR'S ARE LOADED 
MOV #177600, (R1) ‘MAP I-SPACE PAR7 TO I/O PAGE 
MOV #177600, (R2) “MAP D=-SPACE PAR7 TO I/O PAGE 
CMP RI .AKIPAR? 


MOV ASIPARO,R1 
MOV ASDPARO ,R2 


BR 5$ 
7$: CMP R1 ,ASIPAR7 
BEQ 8$ ;BRANCH TO USER LOAD ROUTINE 
RTS PC SRETURN TO CALLING ROUTINE 
8S: MOV #UIPARO,R1 
MOV #UDPARO.R2 
BR 5$ 


30 
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D=SPACE TESTS MEMORY MANAGEMENT ABORT SERVICE ROUTINE 


1321 .SBTTL D-SPACE TESTS MEMORY MANAGEMENT ABORT SERVICE ROUTINE 
1322 ss RRA REEREEEEREREREREREEEAEEEEEEEEREEERREEREEREERE EE 
1323 :* THIS ROUTINE WILL BE ENTERED IF A MEMORY MANAGEMENT ABORT OCCURS 
1324 :* DURING THE D-SPACE ENABLE TESTS. IF THE ABORT IS A NON-RESIDENT 
1325 3 ABORT, THE PROBLEM IS PROBABLY IN THE D-SPACE ENABLE LOGIC. IN 
1326 :* ALL OF THE D=SPACE ENABLE TESTS, D=SPACE PAGES 1 & 3 ARE MAPPED 
1327 :* NON=RESIDENT AND I-SPACE PAGE 3 IS MAPPED NON-RESIDENT. ALL 
1328 : OTHER PAGES ARE MAPPED RESIDENT, 4K, READ/WRITE. THEREFORE, IF 
1329 :* THE NON-RESIDENT PAGE IS 1 OR 3 YOU ARE NOT FORCING I-SPACE WHEN 
1330 :* YOU SHOULD. IF THE NON-RESIDENT PAGE IS 3, AND YOU ARE IN TEST 
ees ;* sary ARE PROBABLY FORCING I-SPACE WHEN YOU SHOULD BE ALLOWING 
a - ; 
1333 FS dninddedeteadeeeiiebateiahiadaladedeiiinsee talented taint dadeninindntabedede 
1334 002222 NODSPAC : STARTING ADDRESS FOR ABORT SERVICE ROUTINE 
1335 002222 042737 000004 172516 BIC wB1T2, MMR3 : TURN OFF D=SPACE BEFORE DOING ROUTINE 
1336 002230 005227 INC (PC) ‘MAKE FLAG ZERO IF THE FIRST TIME 
1337 002232 177777 NDFLAG: .WORD <1 FLAG SHOULD 
1338 002234 001401 BEQ 10$ ‘BRANCH IF FIRST TIME IN ROUTINE 
1339 002236 000000 HALT *] HAVE ENTERED THIS ROUTINE BEFORE 
1340 THE FIRST ERROR IS REPORTED; THE SECOND 
1341 SENTRY ADDRESS IS ON THE STACK, AND THE 
1342 :FIRST ERROR CONDITION IS PROBABLY STILL 
1343 LOCKED UP. 
1344 002240 011637 001304 10$: MOV (KSP) ,BADPC SAVE PC AT TIME OF ABORT OR TRAP 
1345 002244 012637 001260 MOV (KSP)+,TRAPPC :SAVE RETURN ADDRESS IN CASE OF LOOP 
1346 002250 012637 001262 MOV (KSP)+.TRAPPS :SAVE OLD PSwW IN CASE OF LOOP 
1347 002254 013737 177572 001264 MOV MMRO ,WASSRO SAVE STATUS REGISTER 
1348 002262 013737 177574 001266 MOV MMR1,WASSR1 *SAVE AUTO INCR/DECR REGISTER 
1349 002270 013737 177576 001270 MOV MMR2, WASSR2 : SAVE VIRTUAL ADDRESS REGISTER 
1350 002276 005737 001264 TST WASSRO S§ ABORT NON-RESIDENT 
1351 002302 1 2 BPL 1$ RANCH IF ABORT NOT EXPECTED 
1352 002304 104034 ERROR +34 SD=-SPACE ENABLE FAULTY 
1353 002306 000401 BR q :BRANCH TO EXIT 
1354 002310 104002 1$: ERROR +2 ;UNEXPECTED M.M. ABORT 
1355 002312 042737 177376 177572 2$: BIC #177376,MMRO CLEAR ALL BITS EXCEPT 0 AND 8 
1356 002320 012737 177777 002232 MOV #-1,NDFLAG ‘MOVE A -1 TO THE FLAG 
1357 002326 013746 001262 MOV TRAPPS,-(KSP) | ;PUSH OLD PSwW ONTO STACK 
1358 002332 013746 001260 MOV TRAPPC,-(KSP) | ;PUSH OLD PC ONTO STACK 
1359 002336 052737 000004 172516 BIS #BIT2,.MMR3 :TURN D=SPACE BACK ON 
1360 002344 000006 RTT RETURN TO MAIN PROGRAM 
. 
p 
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TURN OFF T=BIT AND SAVE CURRENT PSW 


1361 
1362 

| 1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 002346 033727 
1371 002354 001411 
1372 002356 013746 
1373 062362 011637 
1375 002366 042716 
1376 002372 012746 
1377 002376 000006 
1378 002400 000207 


177776 000020 


177776 
001274 


000020 
002400 
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. SBTTL TURN OFF T=BIT AND SAVE CURRENT PSW 


REE REE REREEEEERERERAERAEERAEAEEEEEARAAAEAEAREKERERAERAE REE 


-* 
ie THIS gt atl IS USED TO TURN OFF THE TRACE TRAP BIT IN 
i* THE PSW IF IT IS ON. THE PROCESSOR STATUS IS SAVED IN 
;* ‘"TBITPS'' SO THAT THE PSW CAN BE RESTORED TO ITS PREVIOUS 
‘* CONDITION WHEN CONDITIONS WARRANT T-BIT TRAPPING. 
-* 
Lee eae ete on att ant ie Oe Palio 
TOF F BIT PSwW,ATBIT :1S i T-BIT SET IN THE PSW? 
BEQ 1$ ZEXIT IF NO 
MOV PSW,-(SP) [PUSH PRESENT PSW ON THE STACK 
MOV (SP), TBITPS TALSO SAVE IT_IN ‘‘TBITPS'’ FOR 
ZRESTORING LATER 
BIC #TBIT, (SP) ;CLEAR THE T-BIT (BIT 4) IN THE PSw 
MOV #1$,-(SP) ;PUSH PC OF 'RTS'* ON STACK 
RTT ;' RETURN’ TO 1$ WITH T-BIT .OFF 
1$: RTS PC [RETURN TO PROGRAM 


32 
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TURN ON T=BIT AND RESTORE PREVIOUS PSW 
1379 .SRBITL TURN ON T=BIT AND RESTORE PREVIOUS PSW 
1380 +; RRRRRRRRERE RARER REET E EERE RARER RARER RRR ERRATA ETT ee 
1381 3* 
382 3* THIS SUBROUTINE IS USED TO RESTORE THE PROCESSOR STATUS 
383 3* TO ITS PREVIOUS CONDITION BY RESTORING THE "T=BIT PSw"* 
te he SAVED BY THE ‘‘TOFF'’ SUBROUTINE IN THE ‘‘TBITPS’* LOCATION. 
-% 
386 ss SORSRRDES ENERO RONEN ERE ETeSEEREANeeSESSSSeueETeRSSecesesesuetes® 
387 002402 033727 001274 000020 TON: BIT TBITPS ,#TBIT ;WAS T-BIT ON IN THE PREVIOUS PSW? 


91 002424 012746 002432 MOV #1$,-(SP) ;PUSH PC OF ‘RTS’ ON STA 
wf 002430 000006 RTT ;‘' RETURN’ TO 1$ WITH BIT RESTORED 


: 

1 

1 

1 

, 

1 00 

1388 002410 001410 BEQ 1$ ZEXIT IF NO 

1389 002412 013746 001274 MOV TBITPS,-(SP) 3PUSH PREVIOUS PSW ON THE STACK 
: 90 002416 012737 000340 001274 MOV #340, TBITPS SRESET THE “TBITPS** ao 
; 

1393 002432 000207 1$: RTS PC [RETURN TO PROGRAM 


33 
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SUBROUTINE TO PREPARE ERLOOP, THE STACK AND EXIT TO ERROR 


1394 .SBTTL SUBROUTINE TO PREPARE ERLOOP, THE STACK AND EXIT TO ERROR 

| 1395 PERRET AAA EEE E EAA A AREA AERA RAR ARAE AREER AREAS 
396 ;* 
1397 :* THIS SUBROUTINE IS USED BY THE THREE SUBROUTINES MFPITS, ne te Fe 
1398 3* MFPDTS WHEN AN ERROR IS CALLED. THE RETURN ADDRESS IS POPPED A 
1399 ys RETURN IS NOT BACK TO THE SUBROUTINE, BUT TO THE TEST ERROR Ard THIS 
1400 a ROUTINE SETS LOCATION ERLOOP, DUPLICATES THE RETURN ADDRESS ON THE 
1401 * STACK FOR POSSIBLE LOOP ON ERROR, AND CORRECTS THE RETURN ADDRESS TO 
1402 ;* POINT TO THE ERROR CALL 4 LOCATIONS BACK FROM THE ‘‘TEST PASSED’' LOCA- 
1403 ;* TION DUPLICATED. NOTE THE ‘TEST PASSED'' RETURN ON THE STACK IS NOT 
1ehe * TOUCHED FOR PROBABLE LATER USE WHEN LOOPING IS NO LONGER ENABLED. 

** 

406 neon Seige tac ania ca me mom mae am 
1407 002434 005726 ERPREP: TST (SP) + ;POP RETURN OF THIS ROUTINE - T USED 
1408 002436 012737 000001 002614 MOV #1,ERLOOP ;SET ERROR LOOPING FLAG INDICATING AN ERROR 
1409 002444 011646 MOV (SP) ,-(SP) * DUPLICATE RETURN PC AND 
1410 002446 162716 000004 SUB #4, (SP) FUDGE FOR ERROR RETURN 
1411 002452 000207 RTS PC RETURN TO THE ERROR CALL IN THE TEST 





———__—_--—_______—- 


1457 002614 
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000072 
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000250 
000250 


177776 


177776 


SEQUENCE 35 


.SBTTL SUBROUTINE TO TEST MFPI INSTRUCTION 


RRR EEE EEA EREREEREREREERRRERERAEAEERERER 


USAGE OF THE SUBROUTINE BELOW IS AS FOLLOWS: 


MOV AMFPILP,SLPERR ;PUT ADDRESS OF LOOPING LOCATION IN $LPERR 
MOV #(NUMB)MFPIPS :PUT PS PREVIOUS/CURRENT MODE VALUE IN THIS LOCATION 
MOV #TRAPRIN, MFPIVC ;LOAD THE TEST or ai TRAP ROUTINE TO MFPIVC 
MOV #(NUMB) ,R2 ;SETUP ADDRESS IN 
sid iE, ASSUMED THAT ALL PDR'S/PAR'S WILL ALSO BE SET UP PROPERLY) 
PC ,MFPITS ;GO DO T 


Be Be Be Be Fe Se Be Be Be 


eee epepee ene ee eR BS 


; HE TEST 
: MPI (MODE) ;MFPI_ INSTRUCTION TO TEST I$ PUT HERE 
; NOP “NEEDED FOR MODES 1,2,4, & 5 *ONLY®* 
; ERROR  +(NUMB) RETURN IS HERE FOR ERROR CALLS 
: TST (SP) + POP STACK - EXTRA RETURN INSTALLED BY SUBRTN NOT NEEDED 
> aoe nae Lae aa 
MEPITS: CLR ERLOOP CLEAR ERROR LOOPING FLAG 
MOV (SP) ,R5 :MOVE STACK POINTER TORS FOR SUBROUTINE LOADING 
MOV (R5S)+,MFPILD _ :MOVE MFPI INSTRUCTION TO LOCATION 


MOV (R5)+.MFPILD+2 MOVE NEXT WORD TO LOCATION 
FUDGE RETURN TO ‘TEST A a el LOCATION 


[SAVE THE STACK POINTER 


MOV (SP) ,STMP1 SAVE THE RETURN ADDRESS 
MFPILP: MOV (PC)+,a(PC)+ SETUP PSW AS DEFINED BY LOADED VALUE IN PRVMD1 
MFPIPS: .WORD 0 SLOCATION TO HOLD SUPER/USER PREVIOUS MODE 
-WORD PSW ;LOAD THE PSW 
MOV Q@MFPIVC,MMVEC ;SET M.M. VECTOR TO MFPIV1 
MFPILD: .WORD 0,0 [LOCATIONS TO HOLD MFPI INSTRUCTION UNDER TEST 
MOV AMGMERR,MMVEC ;SET M.M. VECTOR TO NORMAL ROUTINE 
MOV (SP)+,R1 [POP SUPERVISOR/USER/KERNEL STACK INTO R1 


CMP RO,R1 “WAS DATA FETCHED SAME AS STORED 
BEQ 1$ “BRANCH IF CORRECT DATA WAS FETCHED 
MOV #340,PSw *GO TO KERNEL MODE 
MOV $TMPO, SP SRESET SP 
MOV $TMP1. (SP) :RESET RETURN ADDRESS 
JSR PC, ERPREP PREPARE LOCATION ERLOOP, RETURN PC & EXIT TO ERROR 
OR TIGHTER SCOPE LOOP, REPLACE EOSR PC. ERPREP’’ WITH 'BR MFPILP’’ = 000767 


:F 
i$: TST ERLOOP :CHECK TO SEE IF THIS ‘PASSED'’ IS IN AN ERROR LOOP 
BNE MEPILP ‘BRANCH BACK IF SO 
MOV #340, PSW ‘GET BACK TO KERNEL MODE 
MOV $TMPO, SP ‘RESET SP 
MOV $TMP1. (SP) “RESET RETURN ADDRESS 
RTS PC ‘EXIT - TEST PASSED 


MFPIVC: .WORD 0 
ERLOOP: .wORD 0 


SLOCATION TO HOLD ADDRESS OF MM TRAP CATCHER 
: LOCATION USED TO FLAG AN ERROR CONDITION 
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1495 002720 
1496 

1497 002724 
1498 002730 


1499 002732 
1500 002734 


005037 
0 


002614 
002666 
002670 
002710 
000012 


172310 
000050 


0000 
015726 
000006 


002434 
002614 
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000250 


000250 
172310 


SEQUENCE 


.SBTTL SUBROUTINE TO CHECK THE MTPI INSTRUCTION 


RARER EEE EEE ERE RAE EEEEEKEEEREEERERERH EEE 


36 


** 
= USAGE OF THE SUBROUTINE BELOW IS AS FOLLOWS: 
-* 
3* MOV #MTPILP,SLPERR ;PUT ADDRESS OF LOOPING LOCATION IN $LPERR 
7* MOV #(NUMB) -MTPIPS :PUT PS PREVIOUS/CURRENT MODE VALUE IN THIS LOCATION 
:* MOV HTRAPRIN,MTPIVC ;LOAD THE TEST 7" alee TRAP ROUTINE TO MTPIVC 
:* MOV # (NUMB) ,R2 ; SETUP ADDRESS IN 
7* (IT IS ASSUMED THAT ALL PDR*S/PAR'S WILL ALSO Be SET UP PROPERLY) 
en JSR PC,MTPITS 3GO DO THE TEST 
7* MIP (MODE ) MTPI INSTRUCTION TO TEST IS PUT HERE 
>* NOP NEEDED FOR MODES & 5 *ONLY* 
an ERROR +(NUMB) RETURN IS HERE FOR ERROR CALLS 
:* TST (SP)+°* [POP STACK = EXTRA RETURN INSTALLED BY SUBRTN NOT NEEDED 
** 
ee ap yea en on ee ye apna 
MTPITS: CLR ERLOOP :CLEAR ERROR LOOPING F 
MOV (SP) ,R5 sMOVE STACK POINTER TO ns; FOR LOADING 
MOV (R5)+,MTPILD :MOVE MTPI TO LOCATION 
MOV (R5)+,MTPILD+2 MOVE NEXT WORD TO LOCAT 
MOV (R5)+,MTPITA [MOVE NUMBER TO ADD TO R2 TO LOCATION 
ADD #12, (SP) FUDGE RETURN TO ‘TEST PASSED" LOCATION 
MTPILP: MOV (PC)+,a(PC)+ ;MAKE PREVIOUS MODE USER/SUPERVISOR 
MTPIPM: .WORD ;LOCATION TO HOLD PREVIOUS MODE USER OR SUPER 
-WORD PSW ZL THE PSW 
MOV RO,-(KSP) [PUSH TEST DATA ON KERNEL STACK 
CLRB KIPDR4 ZMAKE KERNEL I PAGE 4 NON-RESIDENT 
MOV @MTPIVC,MMVEC ;SET MM TO VECTOR IN MTPIVC 
MTPILD: .WORD 0,0 [LOCATIONS USED TO PLACE THE MPTI INSTRUCTION 
MOV #MGMERR,MMVEC RESTORE MM VECTOR TO ope ROUT INE 
MOVB #006 ,KIPDR4 :MAKE KERNEL PAGE 4 RESIDENT 
ADD (PC)+,R2 D NUMBER TO R2 TO UNDO INCREMENT/DECREMENT 
MTPITA: .WORD 0 i TOCATION TO HOLD -2, 0, +2 OR 100000 
MOV (R2) ,R1 [READ FROM ADDRESS 6 
CMP RO,R1 3;SEE IF DATA WAS STORED AT CORRECT PLACE 
BEQ 1$ BRANCH IF IT WAS 
JSR PC,ERPREP 3GO PREPARE LOCATION ERLOOP, RETURN PC & EXIT TO ERROR 
;FOR TIGHTER ERROR LOOP, REPLACE ‘JSR PC, ERPREP"’ WITH ‘BR M MTPILP’' = 000754 
1$: TST ERLOOP :SEE IF THIS ‘PASSED'' WAS IN AN ERROR LOOP 
BNE MTPILP BRANCH BACK IF SO 
RTS PC EXIT + TEST PASSED 
MTPIVC: .WORD 0 TLOCATION TO HOLD MM VECTOR TO LOAD 










3 
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TINE TO CHECK THE MFPD INSTRUCTION 









1501 .SBTTL SUBROUTINE TO CHECK THE MFPD INSTRUCTION 

1502 LER EERE REAR AEA ARERR EERE EERE REE 

1503 :* 

LF ;* USAGE OF THE SUBROUTINE BELOW IS AS FOLLOWS: 
** 

1506 3* MOV #MFPDLP,$LPERR ;PUT ADDRESS OF LOOPING LOCATION IN $LPERR 

1507 3 MOV # (NUMB) ,MFPDPS :PUT PS PREVIOUS/CURRENT MODE VALUE IN THIS LOCATION 

1508 :* MOV #TRAPRIN, MFPDVC ;LOAD THE TEST ee TRAP ROUTINE TO MFPDVC 

1509 3* MOV #(NUMB), R2 ; TUP ADDRESS IN 

1510 3% (IT IS ASSUMED THAT ALL PDR" S/PAR'S WILL ALSO ree SET UP PROPERLY) 

1511 7* JSR PC,.MFPDTS :GO DO THE TEST 

1512 7* MFPD “MF PD INSTRUCTION TO TEST IS PUT HERE 

1513 3* NOP SNEEDED FOR MODES 1,2,4, & 5 *ONLY* 

1514 ;* ERROR + (NUMB) * RETURN IS HERE FOR “ERROR CALLS 

a s* TST (SP) + POP STACK = EXTRA RETURN INSTALLED BY SUBRTN NOT NEEDED 
** 

1517 Pong egal geet te rea mien mage apa 

1518 0027 005037 002614 MFPDTS: CLR ERLOOP :CLEAR THE ERROR LOOPING FLAG 

1519 002742 011605 MOV (SP) ,R5 “MOVE RETURN ADDRESS TO RS FOR LOADING 

1520 002744 012537 002774 MOV (R5)+,MFPDLD *MOVE MFPD INSTRUCTION TO THE LOCATION BELOW 

1521 002750 012537 002776 MOV (R5)+,MFPDLD+2 ;MOVE NEXT WORD TO THE NEXT LOCATION 

1522 002754 062716 000010 ADD #10, (SP) FUDGE RETURN TO THE ‘TEST PASSED’' LOCATION 

1523 002760 012737 MFPDLP: MOV (PC)+,a(PC)+ SET UP PSW AS LOADED BY TEST RUNNING THIS SUBROUTINE 

1524 002762 MFPDPS: .WORD 0 sLOCATION TO HOLD NUMBER TO LOAD THE PSW 

1525 002764 177776 . WORD PSW ;LOAD THE PSW 

1526 002766 017737 000036 000250 MOV aMFPDVC ,MMVEC :SET M.M. VECTOR TO TRAP CATCHER OF THE TEST 

1527 002774 0000: MFPDLD: .WORD 0,0 ;LOCATIONS TO HOLD THE MFPD INSTRUCTION 

1528 00 012737 015726 000250 MOV AMGMERR ,MMVEC RESTORE MM VECTOR TO NORMAL ROUTINE 

1529 012601 MOV (SP)+,R1 :POP K/S/U STACK INTO R1 

1530 003010 0001 CMP RC,R1 “WAS DATA FETCHED SAME AS DATA STORED 

1531 003012 001402 BEQ 1$ BRANCH IF CORRECT DATA WAS FETCH 

1532 003014 737 002434 JSR PC,ERPREP ;GO PREPARE ERLOOP, STACK AND EXIT TO ERROR CALL 

1533 003020 005737 002614 1$: TST ERLOOP :SEE IF THIS “PASSED'’ IS IN AN ERROR LOOP 

1534 003024 001355 BNE MFPDLP * BRANCH BACK IF SO 

1535 003026 2 RTS PC sEXIT = TEST PASSED 

1536 | MFPDVC: 0 SLOCATION TO HOLD MM VECTOR OF TEST 
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1538 


104410 
032777 
001077 
000416 


013746 


040000 


000004 
003072 
177060 
000004 


000004 


000400 
176022 
177766 
000001 
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176076 


000004 


176030 
001102 


003256 
003256 


177766 


175750 
001106 


001230 


-SBTTL SCOPE HANDLER ROUTINE 


TTT TTT ITIL loo oo 

SR THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

; AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO peeanreros 08> 

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ‘ARE 


3*SW14=1 LOOP ON TEST 
7 *Sw09=1 LOOP ON ERROR 
7 *SWO08=1 LOOP ON TEST IN SWR<7:0> 
37 *CALL 
3* SCOPE 3; SCOPE=IOT 
SSCOPE: 

CKSWR ;TEST FOR CHANGE IN SOFT-SWR 
1$: BIT #B1T14,aSWR ;;LOOP ON PRESENT TEST? 

R sYES IF SW14=1 


BNE SOVE 
;AAARASTART OF CODE FOR THE XOR TeSTERwente 
$XTSTR: BR 6$ 3 1F RUNNING ON THE ay a TESTER CHANGE 
THIS INSTRUCTION TO A _‘NOP*’ (NOP=240) 
MOV @#ERRVEC ,- (SP) SESAVE THE CONTENTS OF THE ERROR VECTOR 
MOV to A pe 33SET FOR TIMEOUT 


TST a#177060 33TIME OUT ON XOR? 
MOV (SP)+,@MERRVEC ;;RESTORE THE ERROR —— 
BR SSVLAD +h t TO THE NEXT TEST 
5$: CMP (SP) +, (SP)+ CLEAR THE STACK AFTER A TIME OUT 


MOV (SP) +, @#ERRVEC ; ;RESTORE THE ERROR VECTOR 
BR 7$ LOOP ON THE PRESENT TEST 
sccogemers Ta OF CODE FOR THE xOR’ TESTERAANAE 


I #B1TO8 ,ASWR ::LOOP ON SPEC. TEST? 
BEQ 2s : F_NO 
CMPB @SWR ,STSTNM :30N THE RIGHT TEST? SWR<7 :0> 
BEQ SOVER IF YES 

2$: MOV 177766,CPSAVE :MOVE CPU ERR REG VALUE TO LOC FOR TST ;DPMOO1 
BIT #BITOO,CPSAVE ;SEE IF THE POWER MONITOR BIT IS ON ;DPMO01 
BEQ 2000$ [BRANCH TO CONTINUE ROUTINE IF CLEAR . ;DPMOO1 
BIC #B1T00,177766 ;CLEAR THE BIT FOUND TO BE SET ;DPMO01 
EMT +177 [CALL SPECIAL POWER FAIL BIT ERROR CALL ;DPMOO1 


CLRB SERFLG 7CLEAR THE ERROR FLAG ;DPMO01 
2000$: — SERFLG ; HAS - ERROR OCCURRED? 


SSVLAD :BR_ IF NO 
BIT #B1T09,aSWR :LOOP_ON ERROR? 


BEQ 4 ry. NO. 
7$: ay ot ee ,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB SERFLG 3;ZERO_THE ERROR FLAG 
$SVLAD: INCB STSTNM +3 COUNT TEST NUMBERS 

MOVB STSTNM,STESTN ;SET TEST NUMBER IN APT MAILBOX 


MOV (SP) ,$LPADR T:SAVE SCOPE LOOP ADDRESS 
MOV (SP) “SLPERR 22 SAVE ERROR LOOP ADDRESS 


MOVB #1, SERMAX ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: MOV $TSTNM,@DISPLAY {DISPLAY TEST NUMBER 
MOV $SLPADR , (SP) 


RTI 
CPSAVE: .WORD 0 


vet a ADDRESS 
“LOCATION TO SAVE CPU ERR REG CONTENTS ;DPMOO1 
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1540 “SBTTL ERROR HANDLER ROUTINE 


[RRR RARER EA RARE TEE ARERR ERA ERE RE RRR 
THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

EM non AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERRTYP ON ERROR 


is THE dee th 4, PROVIDED BY THIS ROUTINE ARE: 


t*SW15= T ON ERROR 
+ SW 3=1 INHIBIT ERROR TYPEOUTS 
+ *SW10=1 BELL ON ERROR 
: #W09=1 LOOP ON ERROR 
* 
:* ERROR N :;ERROR=EMT AND N=ERROR ITEM NUMBER 
003260 105037 003636 SERROR: CLRB _—sXIBSAVE :CLEAR THE ITEM BYTE SAVE LOCATION 
003264 104410 CKSWR *:TEST FOR CHANGE IN SOFT-SWR 
3266 010037 001162 MOV RO, $REG 78 HE CONTENTS OF R 
003272 010137 001164 MOV R1.$REG1 ‘SAVE THE CONTENTS OF R17 
003276 010237 001166 MOV R2.$REG2 “SAVE THE CONTENTS OF R2 
3302 010337 001170 MOV R3.$REG3 “SAVE THE CONTENTS OF R3 
3 010437 001172 MOV R4.$REG4 ‘SAVE THE CONTENTS OF R4 
003312 010537 001174 MOV R5.$REGS5 ‘SAVE THE CONTENTS OF R5 
003316 113737 001102 001254 MOVB = $TSTNM,TESTNO :SAVE THE TEST NUMBER 
003324 105237 001103 7$: INCB — SERFLG ;3SET THE ERROR FLAG 
33 1775 BEQ 7$ “DON'T LET THE FLAG GO TO ZERO 
003332 013777 001102 175602 MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
3340 032777 002000 175572 BIT #B1T10.aSWR + :BELL ON ERROR? 
003346 001402 BEQ 1$ ::NO - SKIP 
003350 104401 001214 TYPE ,$BELL ;RING BELL 
003354 005237 001112 1$: INC $ERTTL COUNT THE NUMBER OF ERRORS 
3 011637 001116 MOV (SP) , SERRPC +:GET ADDRESS OF ERROR INSTRUCTION 
3 162737 2 001116 SUB #2, $ERRPC 
003372 117737 175520 001114 MOVB  a@$ERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR. ITEM CODE 
3400 122737 177, 001114 CMPBs«#177, SITEMB :SEE IF THIS IS THE POWER FAIL CALL 
3406 001426 BEQ 1001$ ‘BRANCH AROUND ROUTINE IF IT IS 
003410 105737 003636 TSTB —sXIBSAVE “SEE IF THIS IS THE 2ND ERROR CALL 
003414 001021 E 1000$ ‘BRANCH IF SO 
003416 013737 177766 003256 MOV 177766,CPSAVE :MOVE CPU ERR REG TO CPSAVE FOR TEST 
003424 032737 1 003256 BIT WBITOO.CPSAVE :SEE IF POWER MONITOR BIT IS SET 
003432 00141 BEQ 1001$ SBRANCH IF OK 
3434 042737 1 177766 BIC W81T00,177766 CLEAR THE BIT FOUND SET 
003442 113737 001114 003636 MOVB $1 TEMB.. IBSAVE IBSAVE NON-ZERO FOR DUAL CALL 
003450 112737 000177 001114 MOVB  4#177,$1TEMB “SET SITEMB TO SPECIAL SOWER FAIL PNTR 
003456 02 BR 1001$ ‘BRANCH OVER IBSAVE CLEARING 
105037 003636 10008 CLRB —s«IBSAVE “CLEAR IBSAVE SO AFTER 2ND ERROR, EXIT 
3464 032777 020000 175446 BIT #B1T13,aSwR ::SKIP TYPEOUT IF SET 
003472 001004 BNE 20$ :: SKIP TYPEOUTS 
003474 004737 003640 JSR PC,ERRTYP *GO TO USER ERROR ROUTINE 
003500 104401 001221 TYPE ,$CRLF 
003504 20$: 
3504 122737 000001 001244 CMPB = WAPTENV,SENV —s; ; RUNNING IN APT MODE 
003512 001007 BNE : :2NO, SKIP APT ERROR REPORT 
003514 113737 001114 003526 MOVB  $ITEMB,21$ f ITEM NUMBER AS ERROR NUMBER 
003522 004737 006004 - JSR PC, $ATY4 < REPORT FATAL ERROR TO APT 
0035 000 21$: “BYTE 0 


00352 000 BYTE 0 
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013716 


022737 
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000000 


105737 
001234 
000002 
000000 


003636 
175374 


001000 
003636 
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001212 


003636 
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036120 


003636 
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175360 


000042 


22$: 
2s: 


3$: 


4$: 


5$: 


6$: 


IBSAVE: 


. WORD 


22$ 

IBSAVE 

3$ 

aSwWR 

3$ 
#B1T09,aSWR 
4$ 

IBSAVE 
$LPERR, (SP) 
SESCAPE 

5$ 

IBSAVE 


SESCAPE , (SP) 
ASENDAD ,a#42 
6$ 


IBSAVE 
7$ 


0 


SEQUENCE 40 
;;APT ERROR LOOP 
:SEE IF POWER FAIL oT hat CALL ; DPMOO1 
BRANCH I eon - HALT NOT ALLOWED :DPMOO1 


; SKIP IF CONTINUE 
T ON ERROR! 


7HAL 
::TEST FOR CHANGE IN SOF T-SWR 
: s LOOP ON ERROR SWITCH SET? 


IF NO 
:SEE IF THIS IS THE PWR MNTR BIT ERROR  ;DPMOO1 
[BRANCH BACK IF SO = FUDGING NOT ALLOWED; DPMOO1 
: FUDGE RETURN FOR LOOPING 
te FOR AN ESCAPE ADDRESS 


33;BR IF NONE 

[SEE IF THIS IS THE PWR MNTR BIT ERROR  ;DPMOO1 
[BRANCH BACK IF SO = FUDGING NOT ALLOWED; DPMOO1 
[FUDGE RETURN ADDRESS FOR ESCAPE 


2 sACT~ -11 AUTO-ACCEPT? 
INCH IF NO 


SEE IF THIS IS THE PWR FAIL ERROR CALL ;DPMOO1 
:BRANCH BACK TO CALL ORIGINAL ERR IF SO :DPMO01 


RETURN 
‘Loc’ N TO HOLD $ITEMB DURING DUAL ERR = ;DPMO01 


————————_ 


c 4 
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1542 003640 104401 001221 ERRTYP: TYPE ,SCRLF : TYPE <CRLF> 
1543 003644 010046 MOV RO, -(KSP) *SAVE RO. 
1544 003646 005000 CLR RO ‘PICKUP THE ITEM INDEX 
1545 003650 153700 001114 BIS8 a#$ITEMB,RO 
1546 003654 001004 BNE 1$ :1F ITEM NUMBER IS ZERO, JUST 
1547 ; TYPE THE PC OF THE ERROR 
1548 003656 013746 001116 MOV SERRPC ,=(SP) ;SAVE SERRPC FOR TYPEOUT 
1549 TERROR A ADDRESS 
1550 003662 104402 TYPOC *GO TYPE=-OCTAL ASCII(ALL DIGITS) 
1551 003664 000530 BR 13$ :GET OUT 
1552 003666 122700 000177 1$: CMPB Ss #177, RO [SEE IF THIS ERROR CALL IS THE POWER MONITOR BIT CALL 
1553 003672 001003 BNE 100$ ‘BRANCH IF 
1554 003674 012700 004162 MOV #PFECWS,RO ‘MOVE ADDRESS OF POWER MONITOR BIT ERROR TO RO 
1555 003700 000406 BR 110$ ‘BRANCH TO CALL THE ERROR 
1556 003702 005300 100$: DEC RO + ADJUST THE INDEX SO THAT IT WILL 
1557 003704 006300 ASL RO ‘WORK FOR THE ERROR TABLE. 
1558 003706 006300 ASL RO 
1559 003710 006300 ASL RO 
1560 003712 062700 001320 ADD ASERRTB,RO ;FORM TABLE POINTER 
1561 003716 012037 003726 110$: MOV (RO)+,2$ ‘PICKUP ‘ERROR MESSAGE" POINTER 
1562 003722 001404 BEQ 3$ SKIP TYPEOUT IF NO POINTER 
1563 003724 104401 TYPE :TYPE THE "ERROR MESSAGE"’ 
1564 003726 000000 2$: .WORD 0 :'ERROR MESSAGE’ POINTER GOES HERE 
1565 003730 104401 001221 TYPE SSCRLF ;'CARRIAGE RETURN'' & ‘LINE FEED" 
1566 003734 012037 003744 3$: MOV (RO) +,4$ ‘PICKUP ‘DATA HEADER’' POINTER 
1567 003740 001404 BEQ 5$ SKIP TYPEOUT IF 0 
1568 003742 104401 TYPE Ala THE ‘DATA HEADER’’ 
1569 003744 000000 4$: .WORD 0 :'DATA HEADER’ POINTER GOES HERE 
1570 003746 104401 001221 TYPE SCRLF CARRIAGE RETURN'' & ‘LINE FEED’’ 
1571 003752 010146 5$: MOV R1,-(KSP) *SAVE R1 
1572 003754 012001 MOV (RO)+, R1 ‘PICKUP ‘DATA TABLE'’ POINTER 
1573 003756 001472 BEQ 12$ :BR IF NO DATA TO BE, TYPED 
1574 003760 012000 MOV (RO) +,RO :PICKUP ‘DATA FORMAT’’ POINTER 
1575 003762 105710 68: TSTB ~—- (RO) i1S IT FORMAT 0? 
1576 003764 001003 BNE 7$ F NO 
1577 :*THIS CODE IS FOR OCTAL e-BITs” FORMAT (DF =0) 
1578 002766 013146 MOV a(R1)+,=-(SP) :: SAVE @(R1)+ FPR TYPEOUT 
1579 003770 104402 TYPOC 'GO TYPE--OCTAL ASCII(ALL DIGITS) 
1580 003772 000456 BR 11$ 
1581 ! -xTHIS CODE 1S FOR DECIMAL FORMAT (DF=1) 
1582 003774 121027 000001 7$: CMPB—s (RO) , #1 1S IT FORMAT 1? 
1583 004000 001003 BNE 8$ ‘BRANCH IF NO 
1584 004002 013146 MOV a(R1)+,-(SP) *:SAVE a(R1)+ FOR TYPEOUT 
1585 004004 104405 TYPDS +:G0 TYPE=-DECIMAL ASCII WITH SIGN 
1586 004006 000450 BR 11 
1587 :*THIS CODE IS FOR BINARY FORMAT (DF=2) 
1588 004010 121027 000002 8$: CMPB—s (RO) , #2 :1S IT FORMAT 2 
1589 004014 001003 BNE 9$ “BRANCH IF NO 
1590 004016 013146 MOV a(R1)+,-(SP) +:SAVE a(R1)+ FOR TYPEOUT 
1591 004020 104406 TYPBN *:GO TYPE--BINARY ASCII, 
1592 004022 000442 BR 11$ 
1593 -*THIS CODE IS FOR OCTAL (22-BI1T) FORMAT (DF =3) 
1594 004024 121027 000003 $$: CMPB (RO) #3 :1S IT FORMAT 3? 
1595 004030 001011 BNE 1 “BRANCH IF NO 
1596 004032 012146 MOV (R1)+,=(KSP) “PUT ADDRESS OF FIRST LOC. ON STACK 
1597 004034 004737 007056 JSR PC, $DB20 “CONVERT TWO LOCS. TO AN ASCII STRING 
1598 004040 062716 000003 ADD #3. (KSP) ‘ONLY NEED 8 CHARACTERS NOT 11 
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4 
1 SEQUENCE 


MOV (KSP) +, 10% ve ADDRESS OF ASCII_CHARS. AT 10$ 
108: le 0 TYPE OCTAL VALUE OF 22-BIT BiNARY NO. 
;*THIS CODE IS FOR Sie (22-B1T) one i FOR A PAR LEFT SHIFTED 6 (DF=4) 
15$: MOV R2,-(KSP) R2 ON STACK 
MOV R3,-(KSP) ‘SAVE R3_ON STACK 
MOV a(R1)+,R3 ; LOAD DATA WORD INTO R3 
CLR R2 ;R2 HOLDS UPPER SIX BITS OF NUMBER 
ASHC #6,R2 ;SHIFT VALUE LEFT 6 TIMES 
MOV R2,$TMP4 THOLDS LOWER 16 BITS OF ADDRESS 
MOV R3,$TMP HOLDS UPPER 6 BITS OF ADDRES 
MOV ASTMP4,-(KSP) ;PUT ADDRESS OF LOWER BITS ONTO STACK 
JSR PC, $DB2 : CONVERT TWO LOCS. TO AN ASCII STRING 
ADD #3, (KSP) 8 CHARACTERS NOT 11 
MOV (KSP) +, 168 “PUT ADDRESS OF ASCII CHARS. AT 16$ 
TYPE TYPE OCTAL VALUE OF 22-BIT BINARY NO. 
16$: -WORD 0 
MOV (KSP)+,R3 RESTORE R3 
MOV (KSP)+,R2 ZRESTORE R2 
118: TST (R1) 71S THERE ANOTHER NUMBER? 
BEQ 12$ BR IF NO 
TYPE 14% 7; TYPE TWO(2) SPACES 
TSTB (RO) + ;POINT TO NEW ‘DATA FORMAT"’ 
BR 6$ ; LOOP 
12$: MOV (KSP)+,R1 SRESTORE R1 
13$: MOV (KSP)+,RO TRESTORE RO : 
TYPE ,$CRLF 7''CARRIAGE RETURN’ & ‘LINE FEED"’ 
TS PC RETURN 
148: saat 6 / ;TWO(2) SPACES 
PFECWS: .WORD PFECEM,PFECDH,PFECDT ,PFECDF 
PFECEM: .ASCIZ ?POWER MONITOR BIT WAS FOUND SET? 
PFECDH: .ASCIZ ?TESTNO ERR PC CPUERR? 
-EVEN 
PFECDT: .WORD $TESTN,SERRPC,CPSAVE 0 
PFECDF: .BYTE 0,0,0,0 


ae 
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-SBTTL TTY INPUT ROUTINE 


RRR REE REE RAE REREERHEE EE 


- ENABL LSB 
MUTTTITIT TITTLE Do 
[*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
t*ROUTINE IS ENTERED FROM THE TRAP HANDLER WILL 
S*SERVICE THE TEST FOR CHANGE IN SOFTWARE Swi CH REGISTER TRAP CALL 
> *WHEN OPERATING IN TTY FLAG MODE. 


$CKSWR: CMP ASWREG, SWR i31S THE SOFT-SWR SELECTED? 
BNE 15$ “BRANCH IF NO 
TSTB asks 1 CHAR THERE? 
BPL 15$ ::1F NO, DON'T WAIT AROUND 
MOVB  a$TKB,-(SP) *:SAVE THE CHAR 
BIC #*C177, (SP) ::STRIP-OFF THE ASCII 
CMP #7, (SP)+ ‘IS IT A CONTROL G? 
BNE 15$ *=NO, RETURN TO USER 
CMPB —« $AUTOB,, #1 + ZARE WE RUNNING IN AUTO-MODE? 
BEQ 15$ ;;BRANCH IF YES 
TYPE ,$CNTLG ‘ECHO THE CONTROL-G (*G) 
$GTSWR: TYPE * SMSWR ::TYPE CURRENT CONTENTS 
MOV SWREG,-(SP) *:SAVE SWREG FOR TYPEOUT 
TYPOC | iGO TYPE=-OCTAL ASCII(ALL DIGITS) 
TYPE /SMNEW *>PROMPT FOR NEW SWR 
19$: CLR =(SP) *:CLEAR COUNTER 
CLR -(SP) +: THE NEW SWR 
7$: TSTB = aSTKS 17 CHAR THERE ? 
BPL 7$ *IF NOT TRY AGAIN 
MOVB a$TKB,-(SP) *:PICK UP CHAR 
BIC #*(177, (SP) *:MAKE IT 7-BIT ASCII 
CMP (SP) ff t:IS IT A CONTROL-C? 
BNE 9$ + BRANCH IF NOT 
TYPE /SCNTLC :iYES, ECHO CONTROL-C (“C) 
ADD #6,SP [CLEAN UP STACK 
CMPB —s- SINTAG,, #1 +: REENABLE try KEYBOARD INTERRUPTS? 
BNE 8$ +:BRANCH IF NO 
MOV #100, a$TKS ::ALLOW TTY KEYBOARD INTERRUPTS 
8$: JMP CNTRLC *:CONTROL-C RESTAR 
9$: CMP (SP) #25 i318 IT A CONTROL cU? 
2 BNE 10$ “BRANCH IF NOT 
TYPE /SCNTLU YES, ECHO CONTROL-U (*U) 
208: ADD #6,SP *:]GNORE PREVIOUS INPUT 
BR 19$ *:LET'S TRY IT AGAIN 
10$ CMP (SP) #15 *:IS IT A <CR>? 
BNE 16$ ; BRANCH IF NO 
TST 4(SP) *:YES, IS IT THE FIRST CHAR? 
BEQ 11$ + BRANCH IF YES 
MOV 2(SP) ,a@SwR +: SAVE NEW SWR 
11$ ADD #6,SP | PECLEAR UP STACK 
14% TYPE , SCRLF ECHO <CR> AND <LF> 
CMPB ss $INTAG, #1 =RE=ENABLE TTY KBD INTERRUPTS? 
BNE 15 + :BRANCH IF NOT 
MOV #100, a$TkS +S RE-ENABLE TTY KBD INTERRUPTS 
15$: RT] : ;RETURN 
16$: JSR PC, $TYPEC + ECHO CHAR 
CMP (SP) , #60 * CHAR < 0? 
BLT 18$ : BRANCH IF YES 


CMP (SP) , #67 ::CHAR > 7? 
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000002 


000004 
000004 
000023 


000021 
000140 
000175 
000004 


BGT 18$ ;BRANCH IF YES 

BIC #60, (SP)+ :iSTRIP-OFF ASCII 

TST 2(SP) :I1S THIS THE FIRST CHAR 

BEQ 17$ + : BRANCH IF YES 

ASL (SP) ZNO, SHIFT PRESENT 

ASL (SP) Ez CHAR OVER TO MAKE 

ASL (SP) se ROOM FOR NEW ONE. 
17$: INC 2(SP) : KEEP COUNT OF CHAR 

BIS -2(SP), (SP) 2 i SET IN NEW CHAR 

BR 7$ 3 GET THE NEXT ONE 
18$: TYPE , SQUES = TYPE 7<CR><LF> 

BR 20$ SIMULATE CONTROL -U 


-DSABL LSB 


LURE R RRA EEA EEE ERA EAR ERE EEER EERE ERE EEE ERE AEE 


S*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


> *CALL: 
:* RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
te RETURN HERE +> CHARACTER IS ON THE STACK 
te ::WITH PARITY BIT STRIPPED OFF 
$RDCHR: MOV (SP) ,=(SP) :PUSH DOWN THE PC 
MOV 4 (SP) ,2(SP) : SAVE THE PS 
1$: TSTB = aSTKS ‘WAIT FOR 
BPL 1$ "A CHARACTER 
MOVB _a$TKB,4(SP) ‘READ THE TTY 
BIC #*C<177>,4 (SP) SGET RID OF JUNK IF ANY 
CMP 4(SP) #23 t:IS IT A CONTROL-S? 
BNE 3$ *:BRANCH IF NO 
2s: TSTB = a$TKS ::WAIT FOR A CHARACTER 
BPL 2$ *>LOOP UNTIL ITS THERE 
MOVB  a$TKB,-(SP) *:GET CHARACTER 
BIC #°(177, (SP) *°MAKE IT 7-BIT ASCII 
CMP (SP)+,#21 *:1$ IT A CONTROL-Q? 
BNE 2$ zi IF NOT DISCARD IT 
BR 1$ YES, RESUME 
3$: CMP 4 (SP) ,#$XON ‘1S IT A RANDOM XON? :RANOO1 
BEQ 1$ ‘TBRANCH IF YES :RANOO1 
CMP 4(SP) ,#140 SHS IT UPPER CASE? 
BLT 4$ ; ;BRANCH IF YES 
CMP 4 (SP) ,#175 ‘21S IT A SPECIAL CHAR? 
BGT 4 3: CH IF YES 
BIC #40,4(SP) *>MAKE IT UPPER CASE 
4$: RTI +:GO BACK TO USER 


CIO IIOIIIOIUISIIIDIIUISIIIOIIOIDIDIOOIO IIDC oot tot to ttet fir 


[*THIS ROUTINE WILL INPUT A vitae FROM THE TTY 


**CALL: 
ie RDLIN : INPUT A STRING FROM THE TTY 
:* RETURN HERE ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
x ' +: TERMINATOR WILL BE A BYTE OF ALL O'S 
$RDLIN: MOV R3,-(SP) : SAV VE R3 
CLR ~(§P) *CLEAR THE RUBOUT KEY 
1$: MOV #STTYIN,R3 GET ADDRESS 
2$: CMP #STTYIN*+8.,R3 > :BUFFER FULL? 
BLOS 4$ *:BR IF YES 
RDCHR [GO READ ONE CHARACTER FROM THE TTY 
MOVB (sp). (R3) :3GET CHARACTER 
CMPB (R3) ‘IS IT A CONTROL-C? 


4G 


[oo 
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SEQUENCE 


004776 001006 10$ BRANCH IF NO 
005000 104401 0601312 TYPE ,SCNTLC SE TYPE A _CONTROL=C (“C) 
005004 005726 TST (SP) + 3:CLEAN RUBOUT KEY OFF OF THE STACK 
5006 012603 MOV (SP)+,R3 7 ;RESTORE R3 
005010 137 005272 JMP CNTRLC 3:GOTO CONTROL-C RESTART 
005014 122713 000177 10$: CMPB #177,(R3) 3318 IT A RUBOUT 
005020 102 BNE 5$ :BR IF NO 
005022 005716 TST (SP) 3315 THIS THE FIRST RUBOUT? 
005024 1007 BNE ;BR_IF NO 
005026 112737 000134 005224 MOVB #'\,9$ ::TYPE A BACK SLASH 
5034 104401 00522 TYPE . 
005040 012716 177777 MOV #-1, (SP) 23 SET THE a ~ x KEY 
005044 005303 6$: DEC R3 ;BACKUP BY ONE 
005046 005226 CMP R3,ASTTYIN 1 STACK EMPTY? 


005224 
005224 


35 
005716 5$: 
00 


000134 005224 
005224 


000025 7$: 
005236 
000022 8$: 
001221 
005226 
001220 4$: 
005224 3$: 
005224 
000015 


177777 
001222 


4 
(R3) ,9$ 
.9$ 


2$ 
(SP) 
7$ 
#'\,9$ 


(SP) 
#25,(R3) 
8$ 

" ac 
#22, (R3) 
3$ 

(R3) 
-$CRLF 
-STTYIN 
2$ 
"nat 
(R3) ,9$ 
-9$ 

#15, (R3)+ 
2s 
-1(R3) 


[:BR IF YES 
: SETUP To TYPEOUT THE DELETED CHAR. 
GO READ ANOTHER CHAR. 

; :RUBOUT KEY SET? 


;BR_IF NO 
::TYPE A BACK SLASH 


:;CLEAR THE RUBOUT KEY 
seI$ — A CTRL U? 


;;BR IF NO 
+: TYPE A CONTROL ‘U"' 
::GO START OVER 
21S CHARACTER A ‘"*R'’? 
;BRANCH IF NO 
CLEAR THE CHARACTER 
TYPE A A ‘'CR’' g “a 
TYPE THE INPUT STRING 
3:60 PICKUP | ANOTHER CHACTER 
sc TYPE A 
>: CLEAR THe BUFFER AND LOOP 
:zECHO THE CHARACTER 


7:CHECK FOR RETURN 
;;LOOP IF NOT RETURN 
7:CLEAR RETURN (THE 15) 
ts A LINE FEED 
: CLEAN — KEY FROM THE STACK 
T:RESTORE R 


45 


>: ADJUST THE STACK AND PUT oy OF THE 
016666 000004 FIRST ASCII CHARACTER ON IT 


005226 


000002 MOV 
000004 MOV 


9$: -BYTE 0 
0 


$TTYIN: .BLKB 
015 $CNTLU: .ASCIZ 


4(SP) ,2(SP) 33 
MSTTYIN,4(SP) 


3 RETURN 
: ¢ STORAGE FOR ASCII CHAR. TO TYPE 
NATOR 


RM] 
+ :RESERVE 8 BYTES FOR TTY INPUT 
/*U/<15><12> 7: CONTROL ‘U"' 


015 $CNTLG ASCIZ “G/<15><12> 3: CONTROL ‘'G’' 
$MSWR ASCIZ <15><12>/SWR = 


000 
8. 
005236 136 
005241 012 
005243 1 bs / 
005246 0 000 
005250 0 t+ 
005253 1 
~ 005256 0 


sM—SOOr 


NMA 
WINIVING OS 
o~-O -0O— 
ONMNONSM 

— 

Nm 

Ww 





(> - - —-- — - - 
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TTY INPUT ROUTINE 


005261 040 040 
005264 105 
005267 075 040 
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116 SMNEW: .ASCIZ / NEW = / 
040 
000 


SEQUENCE 


46 


vr -- LL 


| CKKTBCO 11/44 MEM MGMT PRT B 
CONTROL=C SERVICING ROUTINE 


1651 005346 040 040° 

1652 005351 112 125 
005 120 111 
005357 107 040 
005362 117 040 
005365 116 104 
005370 117 106 
005373 120 101 
005376 123 015 

1653 005401 124 105 
005404 124 116 
005407 011 120 
005412 123 123 
005415 117 015 
005420 000 


1654 


001210 CNTRLC: MOV 
INC 


3 


Qa5nr--- - - O--" OO -- - = 
S429 =M=NWEK KON 
TUR] NWNRWOOUE OWN 
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CMSG 
$TSTNM, 1$ 
1$,-(SP) 
cs 
$TMP5,-(SP) 


SEOP+2 
0 
/ 


/ 
/ JUMPING TO END 


SEQUENCE 


CONTROL=C SERVICING ROUTINE 


SPASS ,STMPS 2, THE VALUE OF ‘‘SPASS** 
STMP5 


FORM CURRENT PASS # 
TYPE THE By ys STOPS HERE 
;SAVE TEST NUMBER 

:SAVE 1$ FO TYPEOUT 


SAVE STMPS FOR TYPEOUT 

: TYPE ASCII DECIMAL WITH SIGN 
SK FOR NEW SWR VALUE 

JUMP TO END OF PASS + 2 

; TEST # BUFFER 

>2 SPACES & STOP MESSAGE 


OF PASS/<15><12> 


ASCIZ /TESTNO PASSNO/<15><12> 


no ee eee 


| 
| 


CKKTBCO Bey MEM MGMT PRT B 


TYPE ROU 
1656 


105737 
100002 


112716 


001157 


000002 
000001 


000100 


005472 
005774 


000040 


000002 
000011 
000200 


005762 


00563% 
001156 


001154 
000001 
005634 
005762 


000040 
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001244 
001245 


001245 


» SBTTL TYPE ROUTINE 


REE EA ERE RE RA ERE EERERAEREEERAERERERERERRAERAEARERREEREREEE HEH 


S*ROUTINE TO TYPE ASCIZ MESSAGE. ar oe MUST TERMINATE WITH A 0 gt 


:* 
7*CA 


61$: . WORD 
62$: BITB 
BNE 


23: MOVB 
60$: MOV 
3$: ADD 
4$: CMPB 


BR 
S$: JSR 
6$: CMPB 


7$: DECB 


BR 
HORIZONTAL TAB 
8S: MOVB 


; * THE ROUTINE WILL INSERT A NUMBER 
El: $NUL 


SEQUENCE 


NULL CHARACTERS AFTER A LINE 


FEED. 
L CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


LL 
#1) USING soe TRAP iNSTRUCTION 


-MESADR 


STPFLG 
1$ 


3$ 

RO,-(SP) 
@2(SP) ,RO 
MAPTENV, SENV 


62$ 
#APTSPOOL , SENVM 
62$ 


RO,61$ 
PC, SATY3 


0 
HAPTCSUP,SENVM 
C$ 


6 

(RO) +,-(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
ee 
ACRLF , (SP) 


(SP) + 


SCHARCNT 
2$ 


PC,$TYPEC 
4 ahaa 


2 
$NULL , ~ (SP) 
1(SP) 

6$ 


PC, $TYPEC 
SCHARCNT 


7$ 
PROCESSOR 
#’ (SP) 


7zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


21S Me 3 A TERMINAL? 


S 
TZHALT HERE IF NO TERMINAL 
: LEAVE 
3SAVE RO 
:3GET ADDRESS OF ASCIZ STRING 
ING IN APT MODE 


ZINO,GO CHECK . Rye! CONSOLE 
: ¢ SPOOL MESSAGE TO APT 

3NO,GO CHECK FOR CONSOLE 
:3 SETUP MESSAGE apt y FOR APT 
3:SPOOL MESSAGE TO AP 
3 ;MESSAGE ADDRESS 


TBR IF IT ISN'T THE TERMINATOR 
72 1F TERMINATOR POP IT OFF THE STACK 
7 RESTORE RO 
: ZADJUST. RETURN PC 
URN 


BRANCH IF <HT> 
; BRANCH IF NOT <CRLF> a 


;;POP <CR><LF> EQUIV 
:7 TYPE A CR AND LF : 


CLEAR CHARACTER COUNT . 
SIGET NEXT CHARACTER 
3:GO TYPE THIS CHARACTER 
2271S IT TIME FOR FILLER CHARS.? 
321F NO GO GET NEXT CHAR. 
:2GET # OF FILLER CHARS. NEEDED 
THE NULL CHAR, 
; :DOES A NULL NEED TO BE TYPED? 

:BR IF i POP THE NULL OFF OF STACK 
£260 TYPE A NULL 

:DO NOT COUNT AS A COUNT 


BEA 


7;REPLACE TAB WITH SPACE 


48 


— 
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CKKTBCO 11/44 MEM MGMT PRT B SEQUENCE 49 
TYPE ROUTINE 
005614 004737 005634 SR PC, $TYPEC ;z TYPE A SPACE 
005620 132737 000007 005762 BITB  #7.$CHARCNT ; SBRANCH IF NOT AT 
005626 001372 BNE 9$ STOP 
005630 005726 TST (SP) + ‘BoP SPACE OFF STACK 
005632 000724 BR 2$ +:GET NEXT CHARACTER 
005634 $TYPEC: 
005634 105777 173304 TSTB = @STKS ::CHAR IN KYBD BUFFER? :MJD001 
005640 10002 : BPL 10$ ;3BR IF NO +MJD001 
005642 017746 173300 MOV a$TKB,-(SP) GET CHR *MJDO01 
5 042716 177600 BIC #177600, (SP) + STRIP EXTRANEOUS BITS *MJDO01 
005652 122716 000023 CMPR ss SOF F, (SP) ;iWAS CHAR XOFF *MJDO01 
005656 001012 BNE 102$ 7:BR IF +MJD001 
5660 1018: :MJD001 
005660 105777 173260 TSTB = @STKS ::WAIT FOR CHAR : D004 
005664 100375 BPL 101$ sMJDOO 
5666 117716 173254 MOVB _— a$TKB, (SP) :GET CHAR +MJDO01 
005672 042716 177600 BIC #177600, (SP) SOSTRIP IT +MJD001 
005676 122716 000021 CMPB #SXON, (SP) :z:WAS IT XON? :MJD001 
005702 001366 BNE 101$ ::BR IF NOT *MJDO01 
005704 1028: >MJD001 
005704 005726 TST (SP) + :i:FIX STACK *MJDO01 
005706 10$: *MJDO01 
005706 105777 173236 TSTB = a$ TPS ::WAIT UNTIL PRINTER IS READY 
005712 100375 BPL 10$ :MJD001 
005714 126627 000002 000021 CMPB —«-2( SP) , A$XON :31$ CHARACTER A RANDOM XON? *RANOO1 
005722 001420 BEQ $TYPEX “BRANCH IF YES SRANOO1 
005724 116677 000002 173220 MOVB = 2(SP) ,a$TPB *:LOAD CHAR TO BE TYPED INTO DATA REG. 
005732 122766 000015 000002 CMPB —s- ACR, 2 SP) *:ITS CHARACTER A CARRIAGE RETURN? 
005740 001003 BNE 1$ *:BRANCH IF NO 
005742 105037 005762 CLRB  $CHARCNT :: YES~=CLEAR CHARACTER COUNT 
005746 000406 BR $TYPEX XIT 
005750 122766 000012 000002 1$: CMPB es LF, 2 (SP) iis CHARACTER A LINE FEED? 
005756 001402 BEQ $TYPEX :: CH IF YES 
5760 105227 INCB (PC) + *:COUNT THE CHARACTER 
005762 SCHARCNT:.WORD 0 CHARACTER COUNT STORAGE 
005764 000207 $TYPEX: RTS PC 











CKKTBCO 11/44 MEM MGMT PRT B 
APT COMMUNICATIONS ROUTINE 


1657 


112737 
112737 


00040 
112737 


000001 
000001 


000001 
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MACRO M1113 28-MAR-81 13:04 PAGE 43 SEQUENCE 


.SBTTL APT COMMUNICATIONS ROUTINE 


; RRR REE AEEEEATREEEEREERREEEE 


006232 $ATY1: MOVB #1,SFFLG ::TO REPORT FATAL ERROR : 
006250 SATY3: MOVE “i. SMFLG 7:70 TYPE A MESSAGE 
006232 $ATY4: MOVE #1, SFFLG ;;TO ONLY REPORT FATAL ERROR 
MOV RO,-(SP) ;;PUSH RO ON STACK 
MOV R1,-(SP) 7 ZPUSH R1_ON STACK 
TSTB = SM-LG | ;:SHOULD TYPE A MESSAGE? 
BEQ 5$ Z1F NOT: BR 
001244 CMPB © WAPTENV.SENV OPERATING UNDER APT? 
BNE $ NOT: BR 
001245 BITB  #APTSPOOL,SENVM ;; SHOULD SPOOL MESSAGES? 
BEQ 3$ NOT: BR 
MOV @4 (SP) ,RO 33GET MESSAGE ADDR. 
000004 ADD #2,4(SP) ;;BUMP RETURN ADDR. 
1$: TST $MSGTYPE :3SEE IF DONE W/ LAST MISSION? 
BNE 1$ NOT: WAIT 
MOV RO, SMSGAD [PUT ADDR IN MAILBOX 
2s: iste (R0)+ FIND END OF MESSAGE ” 
SUB $MSGAD ,RO ;3SUB START OF MESSAGE 
ASR RO GET MESSAGE LNGTH IN WORDS 
MOV RO, $MSGLGT [IPUT LENGTH IN MAILBOX 
001224 Mov #4, SMSGTYPE TITELL APT TO TAKE MSG. 
006142 38: MOV a4(SP),4$ :;PUT MSG ADDR IN JSR LINKAGE 
000004 ADD #2,4(SP) ;BUMP RETURN ADDRESS 
MOV 177776,-(SP) ::PUSH 177776 ON STACK 
JSR PC, $TYPE Z:CALL TYPE MACRO 
ss -WORD 0 
10$: STB  $FFLG SHOULD REPORT FATAL ERROR? 
BEQ 12$ Z:IF NOT: BR 
TST SENV ;:RUNNING UNDER APT? 
BEQ 12$ :1F NOT: BR 
11$: ‘TST S$MSGTYPE iF INISHED LAST MESSAGE? 
BNE 11$ F NOT: WAIT 
001226 MOV @4(SP),$FATAL ::GET ERROR # 
000004 ADD. #2,,4(SP) BUMP RETURN ADDR. 
INC SMSGTYPE ;;TELL APT TO TAKE ERROR 
12$: CLRB  $FFLG TICLEAR FATAL FLAG 
CLRB- $LFLG ::CLEAR LOG 
CLRB = $MFLG 7:CLEAR MESSAGE FLAG 
MOV (SP)+,R1 ::POP STACK INTO R1 
MOV (SP) +,RO ;POP STACK INTO RO 
RTS PC ; RETURN 
SMFLG: .BYTE 0 ZiMESSG. FLAG 
$LFLG: .BYTE 0 ::LOG FLAG 
SFFLG: .BYTE 0 ::FATAL FLAG 
APTSIZE=300 
APTENV=001 
APTSPOOL=100 


APTCSUP=040 


50 
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BINARY TO ASCII AND T 
1658 .SBTTL_ BINARY TO ASCII AND TYPE ROUTINE 


OTT TTTT TTT TT TELE TLL td bbbblbdebededdleltelededeleheleheieieiedel 
tRTHIS ROUTINE IS USED TO — 16-BIT BINARY NUMBER TO A 16-B1T 
:*BINARY=ASCII NUMBER AND TYPE IT 


> *CALL: 
zs MOV NUMBER , - (SP) y NUMBER TO BE TYPED 
te TYPBN STYPE IT 

006234 010146 $TYPBN: MOV R1,-(SP) SAVE R1 ON THE STACK 

006236 016601 000006 MOV 6(SP) ,R1 :GET THE INPUT NUMBER 

006242 000261 SEC SET "'C'' SO_CAN KEEP TRACK OF THE NUMBER OF BITS 

006244 112737 000060 006306 1S: MOVB  #'0,$BIN z3SET CHARACTER TO AN ASCII ‘0"’. 

006252 006101 ROL R1 +:GET THIS BIT 

006254 001406 BEQ 2$ +: DONE? 

006256 105537 006306 ADCB = $BIN + INO--SET THE CHARACTER EQUAL TO THIS BIT 

006262 104401 006306 TYPE ,SBIN < :3GO_ TYPE THIS BIT 

006266 000241 CLC SCLEAR ''C’' SO CAN KEEP TRACK OF BITS 

006270 000765 BR 1$ 3360 DO THE NEXT BIT 

006272 012601 2s: MOV (SP)+,R1 *POP THE STACK INTO R1 

006274 016666 000002 000004 MOV 2(SP) ,4(SP) ‘ADJUST THE STACK 

302 012616 MOV (SP)+, (SP) 


006 
006304 000002 RTI sae Tome TO USER 
006306 000 0.0 STORAGE FOR ASCII CHAR. AND TERMINATOR 
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BINARY TO OCTAL (ASCII) AND TYPE 


1659 


005204 
052703 
052703 


006534 
177770 


000060 
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006533 


SEQUENCE 52 


» SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


RRR ERE REE EERE EREEREEREREREEEEEREREREE EE 


t*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


[*OCTAL (ASCII) NUMBER _AND TYPE IT 
i wT YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


* 


NUM, = (SP) 


3 NUMBER TO BE TYPED 

3;CALL_FOR TYPEOUT 

3 3N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;M=1 OR 0 


::1=TYPE LEADING ZEROS 
TQ=SUPPRESS LEADING ZEROS 


:w$TVPON-==-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


;*$TYPOS OR $TYPO 


:*CALL: 


ot 
° 


MOV 
TYPON 


NUM, = (SP) 


7 NUMBER TO BE TYPED 
33CALL FOR TYPEOUT 


:#STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


>*CALL 


* 
. 


oe 
$TYPOS: 


STYPOC: 
$TYPON: 


1$: 
23: 


3$: 


4$: 
5$: 


MOV 
TYPOC 
MOV 


NUM, = (SP) 
a(SP) ,-(SP) 


1(SP) , SOF ILL 
(SP) +, SOMODE +1 


SOMODE +1,R4 
#6,R4 


R4, SOMODE 
SOF ILL,R4 
12(SP) ,R5 


; NUMBER TO BE TYPED 
CALL FOR TYPEOUT 
PICKUP THE MODE 
37:LOAD ZERO FILL SWITCH 
3 NUMBER OF DIGITS TO TYPE 
7zADJUST RETURN ADDRESS 


7z:SET THE ZERO FILL SWITCH 
3:SET FOR S1X(6) DIGITS 
23 SET Pe ITERATION COUNT 


so". IT FOR MAX. ALLOWED 
soe IT FOR USE 

3:GET THE ZERO FILL SWITCH 
7:PICKUP THE INPUT NUMBER 
7:CLEAR THE OUTPUT WORD 

: sROTATE MSB INTO *'C’’ 


O DO MSB 
72FORM THIS DIGIT 


Hy 


HIS DIGIT 
1? 


‘BON'T SUPPRESS ANYMORE 0°S 
[MAKE THIS DIGIT ASCII 


















006464 
70 
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BINARY TO OCTAL (ASCII) AND TYPE 


110337 
01 
105337 
347 


000002 000004 


7$: 


6$: 


8 5 
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SEQUENCE 


ot FOR TYPING 
+60 ag ys me DIGIT 


T BY 
2IBR 4 oe TO DO 


IF DONE 
7: INSURE LAST {iy iw T A BLANK 
::G0 DO ig saa DIGIT 


TEREST R3 
37SET THE STACK FOR RETURNING 


;RE TURN 
ii TORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
S:0CTAL DIGIT COUNTER 
33ZERO FILL SWITCH 
7 NUMBER OF DIGITS TO TYPE 


53 
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te 


CONVERT BINARY TO DECIMAL AND TYPE ROUT! 


1660 


020200 
000020 


000055 
006752 
000040 


006742 


177777 


006752 


MACRO M1 


000001 


177777 


177776 


Ze 
u; 28-MAR-81 13:04 PAGE 46 


SEQUENCE 54 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


RARER ERR REREEEERREREREREAEERREEREEREERRRERERAEREREEHE 


+*THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 


:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHE 


:*NUMBER IS POSITIVE GR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


R_THE 


:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
aie WITH SPACES. 


3 *CAL 


** 
. 


*& 
$TYPDS: 


7$: 


8$: 


9$: 


MOV 
TYPDS 


NUM, = (SP) 


RO,-(SP) 
R1.-(SP) 
R2.-(SP) 
R3,-(SP) 
R5,-(SP) 
#20200,-(SP) 
20(SP) +R5 


R5 
#'=,1(SP) 
RO 


#SDBLK ,R3 
w' ,(R3)+ 


R2 
$DTBL(RO) ,R1 
R1,R5 


(SP) 
7$ 
(SP) 
6$ 
1(SP) ,-1(R3) 
#°0,R 


2 


$ 

(SP) + 

-1(SP) ,-2(R3) 
(R3) 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
, SDBLK 


7zPUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


ee E 
:zMAKE THE AS 
32ZERO THE CONSTANTS INDEX 


33GET THE CONSTANT 
32FORM THIS BCD DIGIT 


;;BR_IF DONE 
7: INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
er BCD es 


72 FALL OUGH IF 0 
:zSTILL DOING LEADING 0°S? 
ee IF YES 


;;BR_IF NO 

32 YES--SET THE SIGN 

7z:MAKE THE BCD DIGIT ASCII 

7;MAKE IT A SPACE_IF NOT ALREADY A DIGIT 
3;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
3;JUST INCREMENTING 

7:CHECK THE TABLE INDEX 


THE LS 
::GO CHANGE TO ASCII 
7:WAS THE LSD THE FIRST NON-ZERO? 


;;BR IF NO 
::YES--SET THE SIGN FOR TYPING 
::SET THE TERMINATOR 

::POP STACK INTO RS 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


006730 016666 000002 000004 MOV 2(SP) ,4(SP) ;zADJUST THE STACK 


006736 012616 ; MOV (SP) +, (SP) 

006740 000002 RT] ; RETURN TO USER 
006742 023420 $DTBL: 10000. 

906744 001750 1000. 

006746 000144 100. 

006750 2 10. 

006752 $SPBLK: .BLKW 4 


CKKTBCO 11/44 MEM MGMT PRT 
SAVE AND RESTORE RO-R5 ROUTINES 


1661 


006766 
007006 
007030 
007046 


007054 


os 
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» SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


RRR EEE REE ERE EEE EREEAEEAREEE AEE 


‘SAVE Aiton 


-* 


Be Be Be Be Be Be Be Be Se Be Be Be 


$SSAVREG: 


;*RESTORE RO-R5 
RESREG 


s*CALL: 


-* 
$RESREG: 


RO,-(SP) 


22(SP) ,=(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 
22(SP) ,~(SP) 


(SP) +,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP) +,22(SP) 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP) +,RO 


7 RESTORE PC 
dae th PS 
2 ¢REST ORE 


PC 
; sRESTORE a 


: POP STACK 
3:zPOP STACK 


SEQUENCE 56 


SAVREG 
purus RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


S eTOP===(+16) 
;* +2-==(+18) 
3 +4-=-R5 
t& +6==-R4 
5% +8---R3 
;*+10---R2 
;*4+12---R1 
:#4+14---RO 


OF MAIN FLOW 
TO R5 


INTO RO 





po en 
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ve 
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DOUBLE LENGTH BINARY TO OCTAL ASCIJ CONVERT ROUTINE 
. SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


RRR RARER EEA RAE EERE AERA REAEAREEREEEE 


S*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 


1662 


007060 016601 000002 
007064 012705 007175 


000014 
007074 012703 177770 


007122 010566 000002 


71 000207 
007132 03 
0071 1 
007136 
007140 006001 
007142 006 
007144 006001 
007146 006 


007152 062702 000060 


[*UNSIGNED OCTAL ASCIZ NUMBER. 


3 *CALL 
ie MOV #PNTR,=(SP) 
3* JSR PC ,a#$DB20 
;* RE TURN 
$DB20: SAVREG 
MOV 2(SP) 
MOV Sac TA s13. »R5 
MOV #12. ,R4 
MOV #*C7,R3 
MOV (R1)+,RO 
MOV (R1)+,R1 
CLR R2 
1$: MOVB R2,-(R5) 
MOV RO,R2 
DEC 4 
BGT 3$ 
BEQ 2$ 
INC 
MOV R5,2(SP) 
RESREG 
S PC 
2$: ASR R3 
3$: ROR R1 
ROR RO 
ROR R1 
ROR RO 
ROR R1 
ROR RO 
BIC R3,R2 
ADD #°O,R2 


BR 
SOCTVL: .BLKB 14. 


SEQUENCE 57 


7zPOINTER TO LOW WORD OF BINARY NUMBER 
ie THE ROUTINE 
:THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
SAVE ALL REGISTERS 
::PICKUP THE POINTER TO LOW WORD 
: EPOINTER TO DATA TABLE 
7:DO0 ELEVEN CHARACTERS 
; «MASK 
: LOWER WORD 
HIGH WORD 
{TERMINATOR 
T CHARACTER _IN DATA TABLE 
T:GET THIS DIGIT 
3:COUNT THIS CHARACTER 
:7BR IF NOT THE LAST DIGIT 
BR IF IT IS THE LAST DIGIT 
3 FALL DIGITS DONE-ADJUST POINTER FOR FIRST 
ASCIZ CHAR. & PUT IT ON THE STACK 
: RESTORE ALL REGISTERS 
3;RETURN TO USER 
3;POSITION THE MASK FOR THE LAST DIGIT 
partons * 5a THE BINARY NUMBER FOR 
te THE NEXT OCTAL DIGIT 


7 ¢MASK OUT ALL JUNK 

7z:MAKE THIS CHAR. ASCII 

3GO PUT IT IN THE DATA TABLE 
+ URESERVE DATA TABLE 





indented I ee Wed PPR a Se. 6 ee “a f 
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TRAP DECODER 


1663 » SBTTL TRAP DECODER 
Reet eee EET LDL Ll blalelababebehalebabalabedeheblaletebetehebaletedl 
STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
-#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
**OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


| 
| 
| 
007176 010046 $TRAP: MOV RO,-(SP) ::SAVE RO | 
007200 016600 000002 MOV 2(§P) ,RO ;GET TRAP ADDRESS 
007204 005740 TST -(RO) ;BACKUP BY 2 
7206 111000 MOVB (RO) ,RO 33GET RIGHT BYTE OF TRAP | 
007210 006300 ASL RO “POSITION FOR INDEXING 
007212 016000 007232 Moy STRPAD(RO) , RO i INDEX TO TABLE 
007216 0002 RTS *GO TO ROUTINE 
sTHIS 1S USE TO NHANOLE THE “GETPRI'' MACRO | 
007220 011646 $F RAP2:” MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
007222 016666 000004 900002 MOV 4(SP) ,2(SP) +>MOVE THE PSW DOWN 
007230 000002 RTI +:RESTORE THE PSW 
.SBTTL TRAP TABLE 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
> *BY THE "'TRAP’' INSTRUCTION. 
: ROUT INE 
007232 007220 $TRPAD: .WORD  $TRAP2 os 
007234 005422 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
007236 006334 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
007240 006310 $TYPOS =:CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
007242 006350 STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
007244 006536 $TYPDS =:CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
007246 006234 STYPBN ::CALL=TYPBN —_TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
007250 004346 $GTSWR ::CALL=GTSWR _TRAP+7(104407) GET SOFT-SWR SETTING 
007252 004276 $CKSWR z:CALLECKSUR TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 
007254 004620 SRDCHR ::CALL=RDCHR - TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
007256 004750 SRDLIN ::CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 
007260 006762 $SAVREG tt CALL= SAVREG TRAP+13(104413) SAVE RO-RS ROUTINE 
007262 007020 SRESREG ::CALL=RESREG TRAP+14(104414) RESTORE RO-R5 ROUTINE 


——_——___—--- -- 
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| POWER DOWN AND UP ROUTINES 
| 1664 .SBTTL POWER DOWN AND UP ROUTINES 
| . RAE RARER EREEEAAEAAAAARAEEAERAREEEEEEERATHRERREREARAEEEEE 
: POWER Down ROUT INE 
7264 012737 007442 000024 $PWRDN: #SILLUP,a#PWRVEC ;;SET FOR FAST UP 
007272 012737 000340 000026 mov 7360, a#PWRVEC+2 ;:PRIO:7 
7300 01 MOV RO,=(SP) +:PUSH RO ON STACK 
007302 010146 MOV R1.=(SP) * PUSH R1 ON STACK 
7304 010246 MOV R2.=(SP) PUSH R2 ON STACK 
7306 010346 MOV R3.=(SP) + PUSH R3 ON STACK 
007310 010446 MOV R4.=(SP) + PUSH R4 ON STACK 
007312 010546 MOV R5S.=(SP) *=PUSH RS ON STACK 
007314 017746 171620 MOV aswR, = (SP) PUSH @SWR ON STACK 
007320 010637 007446 } MOV SP, $SAVR6 +:SAVE SP 
007324 012737 007336 000024 MOV #SPWRUP ,a#PWRVEC ::SET UP VECTOR 
007332 000000 HALT 
007334 000776 BR - 


e oe 
REAR ERE RAE EREEREEAEEREREREREEERREREEEEREERERE REE 


“ POWER UP ROUTINE 
007336 012737 007442 000024 $PwRUP: MOV #$ILLUP ,a#PWRVEC eget FOR FAST DOWN 


607344 013706 007446 MOV $SAVR6, SP ::GET_SP 
007350 005037 007446 CLR $SAVR6 3zWAIT LOOP FOR THE TTY 
007354 005237 007446 1$: INC $SAVR6 izWAIT FOR THE INC 
007360 001375 BNE 1$ ee WORD 
007362 012677 171552 MOV (SP) +,@SWR ::POP STACK INTO @SWR 
007366 012605 MOV (SP)+,R5 3:POP STACK INTO R5 
007370 012604 MOV (SP)+,R4 7:POP STACK INTO R4& 
007372 012603 MOV (SP)+,R3 7:POP STACK INTO R3 
007374 012602 MOV (SP)+,R2 :zPOP STACK INTO R2 
007376 012601 MOV (SP)+,R1 3 POP os oath R1 
007400 012600 MOV (SP)+,RO 3:POP_ STACK INTO RO 
007402 012737 007264 000024 MOV #SPWRDN, @#PWRVEC :;SET UP THE POWER DOWN VECTOR 
007410 012737 000340 000026 MOV #340, a#PWRVEC+2 ;;PRIO:7 
007416 104401 TYPE 2 ¢REPORT THE POWER FAILURE 
007420 007450 SPWRMG: .WORD PWRMSG POWER FAIL MESSAGE POINTER 
007422 012716 MOV (PC) +, (SP) [RESTART AT START 
007424 020000 SPWRAD: .WORD START 7 RESTART ADDRESS 
007426 042766 000020 000002 BIC #20,2(SP) 3CLEAR *'T’’ BIT 
007434 005037 001310 CLR $TBIT 3:CLEAR THE ‘'T’’ BIT FLAG 
007440 000002 RTI 
007442 000000 $ILLUP: HALT 7 THE POWER UP SEQUENCE WAS STARTED 
007444 000776 BR . 7: BEFORE THE POWER DOWN WAS COMPLETE 
007446 000000 SSAVR6: 0 ;PUT THE SP _HERE 
1665 007450 012 015 040 PWRMSG: .ASCIZ <12><15>? POWER FAILURE - RESTARTING ?<12><15> 
007453 120 117 127 
007456 105 122 040 
007461 106 101 111 
7464 114 125 122 
007467 105 040 055 
007472 040 122 105 
007475 123 124 101 
007500 122 124 111 
007503 116 "107 040 
007506 012 015 000 


1666 -EVEN 
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ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS 


rs | - SBTTL a a DATA HEADERS-TABLES & FORMATS 

1670 007512 125 116 105 EMI: -ASCIZ /UNEXPECTED CPU TRAP TO LOC. 004/ 

1671 007552 125 116 105 : .ASCIZ /UNEXPECTED MEM. MGMT. TRAP TO LOC. 250/ 

1672 007621 115 105 115 —M10:  .ASCIZ /MEMORY MGMT. ACCESS ABORT DID NOT OCCUR/ 

1673 007671 101 103 103 EM11: ASCIZ /ACCESS ERROR DID NOT ABORT INSTRUCTION/ 

1674 007740 123 122 060 EMI2: ASCIZ /SRO DID NOT REPORT ACCESS ERROR CORRECTLY/ 

1675 010012 123 122 062 €M13:  .ASCIZ /SR2 DID NOT LOCKUP CORRECT VIRTUAL ADDR. 

1676 01 120 101 107 €M14:  .ASCIZ /PAGE LGTH. ABORT OCCURRED WHEN IT SHOULDN'T HAVE/ 
_ 1677 010144 120 101 107 ~EM15: ASCIZ /PAGE LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE/ 

1678 010227 123 122 060 EM16: ASCIZ /SRO DID NOT REPORT PAGE LGTH. ABORT CORRECTLY/ 

1679 010 123 122 060 EM21:  .ASCIZ /SRO OR SR2 CHANGED BY A SECOND ABORT/ 

1680 010352 123 122 060 EM22:  .ASCIZ /SRO OR SR2 WERE NOT ‘RESET’’ BY A RESET/ 

1681 010421 123 122 062 EM23: ASCIZ /SR2 NOT TRACKING CORRECTLY/ 

1682 010454 104 111 104 EM24: .ASCIZ /DID NOT TRAP THRU KERNEL SPACE/ 

1683 010513 113 124 040 E—M25:  .ASCIZ /KT ERROR SERVICED ON ODD ADDR. ERROR/ 

1684 010560 123 122 060 EM26: ASCIZ /SRO OR SR2 CHANGED BY ODD ADDR. ERROR/ 

1685 010626 105 122 122 EM27: ASCIZ /ERROR DURING ‘DOUBLE ERROR’’ (KT & ODD ADDR.)/ 

1686 010703 115 106 120 EM30: .ASCIZ /MFPI INSTRUCTION PUSHED WRONG DATA/ 

1687 0107 115 124 120 EM31:  .ASCIZ /MTPI INSTRUCTION LOADED WRONG DATA/ 

1688 011011 123 124 101 —M32:  .ASCIZ /STACK NOT PUSHED BY MFPI-MTPI/ 

1689 011047 113 105 122 €M33:  .ASCIZ /KERNEL PAGE ACCESS INSTEAD OF USER: MFPI-MTPI/ 

1690 011125 115 056 115 €M34:  .ASCIZ /M.M. ABORT IN KERNAL D-SPACE HAD WRONG CONDITION/ 

1691 011206 111 114 114 E—M35:  .ASCIZ /ILLEGAL MODE 10 NOT ABORTED/ 

1692 011242 123 122 060 E—M36: .ASCIZ /SRO DID NOT REPORT ILLEGAL MODE 10 CORRECTLY/ 

1693 011317 120 123 127 EM37:  .ASCIZ /PSW CHANGED BY AN RTI _IN USER MODE/ 

1694 011362 101 102 117, —M40:  .ASCIZ /ABORT I KERNAL D-SPACE PICKED UP VECTOR FROM I~SPACE/ 

1695 011447 104 040 123 —M41:  .ASCIZ /D SPACE ENABLE CIRCUITRY HAS FAILED/ 

1696 011513 111. 116 103 EM42: .ASCIZ /INCORRECT STORE BY MTP INSTRUCTION/ 

1697 011556 124 122 111 EM43: ASCIZ /TRIED TO REFERENCE NON-RESIDENT PAGE/ 

1698 011623 127 122 117 ~EM44: ASCIZ /WRONG DATA FETCHED BY MFP_INSTRUCTION/ 

1699 011671 111 114 114 €M45:  .ASCIZ /ILLEGAL CSM DID NOT TRAP TO 10/ 

1700 011730 103 123 115 EM46: ASCIZ /CSM DID NOT ENTER SUPERVISOR MODE/ 

1701 011772 103 123 115 EM47:  .ASCIZ /CSM SET UP WRONG PREVIOUS MODE / 

1702 012031 103 123 115 EMSO: .ASCIZ /CSM SET UP STACK WRONG/ 

1703 012060 103 123 115 €—MS1:  .ASCIZ /CSM PUSHED INCORRECT ARGUMENT/ 

1704 012116 103 123 115 EMS2: .ASCIZ /CSM PUSHED WRONG PC/ 

1705 012142 103 123 115 EM53: ASCIZ /CSM DID NOT CLEAR OLD PSW BITS <3:0>/ 

1706 012207 103 123 115 EMS54: ASCIZ /CSM ACCESSED WRONG SUPERVISOR SPACE/ 

1707 012253 103 123 115 E—M55:  .ASCIZ /CSM ABORTED WHEN IT SHOULD NOT HAVE/ 

1708 012317 103 123 115 €M56:  .ASCIZ ?CSM FAILED TO INCREMENT/DECREMENT REGISTER PROPERLY? 

i, 012403 103 123 115 EMS7: ane /CSM FAILED TO PUT PROPER ARGUMENT ON STACK/ 

EVEN 
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DATA HEADERS 

at -SBTTL DATA HEADERS 
1713 012456 ~=—s'117 114 104 DH1: -ASCIZ /OLD PC OLD PSW R6 WAS CPUERR TESTNO ERRORPC/ 
1714 012536 117 114 104 DHe: -ASCIZ /OLD PC OLD PSW R6 WAS SRO SR2 TESTNO ERRORPC/ 
1715 012626 120 104 122 DH10: .ASCIZ /PDR 4  PSW TESTNO ERRORPC/ 

1716 012666 123 122 060 DH12: .ASCIZ /SRO WAS EXPECTD PDR 4 PSw TESTNO ERRORPC/ 
1717 012746 123 122 062 DH13:  .ASCIZ /SR2 WAS EXPECTD PDR 4 = PSW TESTNO ERRORPC/ 
1718 013026 126 056 102 DH14: .ASCIZ /V.B.A. KIPDR4 SRO WAS SR2 WAS TESTNO ERRORPC/ 
1719 013106 126 056 102 DH15: .ASCIZ /V.B.A. KIPDR4 TESTNO ERRORPC/ 

1720 013146 126 056 102 DH16: .ASCIZ /V.B.A. KIPDR4 SRO WAS EXPECTD TESTNO ERRORPC/ 
1721 013226 126 056 102 DH17: .ASCIZ /V.B.A. KIPDR4 SR2 WAS EXPECTD TESTNO ERRORPC/ 
1722 013306 123 122 062 DH20: .ASCIZ /SR2 WAS EXPECTD TESTNO ERRORPC/ 

1723 013346 106 171 122 DH21: .ASCII /FIRST ABORT SECOND ABORT/<CRLF> 

1724 013403 123 122 060 .ASCIZ /SRO WAS SR2 WAS SRO WAS SR2 WAS TESTNO ERRORPC/ 
1725 013463 123 122 060 DH22: .ASCIZ /SRO WAS SR2 WAS TESTNO ERRORPC/ 

1726 013523 120 123 127 DH24: .ASCIZ /PSW WAS R6 WAS TESTNO ERRORPC/ 

1727 013563 105 130 120 DH26: .ASCII /EXPECTED RECEIVED/<CRLF> 

1728 013615 123 122 060 -ASCIZ /SRO SR2 SRO WAS SR2 WAS TESTNO ERRORPC/ 
729 013675 105 130 120 DH27: .ASCII /EXPECTED:/<CRLF> 
1730 013707 120 123 127 ASCII /PSW PC 0 SR2/<CRLF> 

731 013743 061 . 067 060 eASCII /170017 (3$+4) 020147 (3$)/<CRLF> 

732 014 122 - 105 103 -ASCII] /RECEIVED:/<CRLF> 

733 014012 120 123 127 eASCIZ = /PSW PC SRO SR2 TESTNO ERRORPC/ 

734 014072 104 101 124 DH30: .ASCII /DATA DATA/<CRLF > 

735 014107 105 130 120 -ASCIZ /EXPECTD RECEIVD TESTNO ERR PC/ 

736 014146 124 105 123 DH32: .ASCIZ /TESTNO ERR PC/ 

737 014165 123 122 060 DH33: SCIZ /SRO WAS SR2 WAS TESTNO ERRORPC/ 

738 014225 050 115 115 DH346:  .ASCIZ /(MMRO) (MMR1) (MMR2) TESTNO ERRORPC EXPECTING 020031/ 

739 014316 123 122 060 DH36: ASCIZ /SRO WAS EXPECTD TESTNO ERRORPC/ 

740 014356 120 123 127 DH37: ASCIZ /PSW WAS EXPECTD TESTNO ERRORPC/ 

741 014416 050 120 123 DH40: ASCIZ /(PSW) TESTNO ERRORPC EXPECTING XXX340/ 

742 014467 105 122 122 DH41: .ASCII /ERROR  AUTOI-D VIRTUAL/<CRLF> 

745 014517 122 105 107 -ASCIZ /REGISTR REGISTR ADDRESS TESTNO PC AT ABORT/ 

744 014573 107 104 104 DH42:  .ASCIZ /GDDATA STORED TESTNO ERRORPC/ 

745 014633 050 115 115 DH43:  .ASCIZ /(MMRO) (MMR1) (MMR2) TESTNO ERRORPC/ 

746 014703 105 130 120 DH44: .ASCIZ /EXPECTD (PSW) TESTNO ERRORPC/ 

747 014743 117 114 104 DH45: .ASCIZ /OLDPSW TESTNO ERRORPC/ 

748 014773 124 105 123 DHSS:  .ASCIZ /TESTNO ERR PC RO EXP RO RCV/ 

124 105 123 DHS7: .ASCiZ /TESTNO ERR PC ARGEXP ARGRCV/ 


749 015032 
750 
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“4 


| DATA TABLES 
1758 .SBTTL DATA TABLES 
1753 015072 001260 001262 001256 DT1 "WORD TRAPPC, TRAPPS ,WASR6, CPUERR, TESTNO, SERRPC ,0 
1754 015110 001260 001262 001256 DT2 "WORD  TRAPPC. TRAPPS.WASR6,WASSRO,WASSR2. TESTNO, SERRPC ,0 
1785 015130 001166 001176 001254 DT10:  <WORD $REG2,$TMPO,TESTNO, SERRPC, 
1756 015142 001264 001170 001166 DT12:  .WORD WASSRO,$REGS,$REG2,$TMPO, TESTNO,SERRPC,0 
1757 015160 001270 001172 001166 DT13:  .WORD WASSR2,$REG4,$REG2,$TMPO, TESTNO, SERRPC ,0 
1788 015176 001162 001172 001264 DT14:  .WORD  $REGO,$REG4,WASSRO,WASSR2, TESTNO, SERRPC 0 
1759 015214 001162 001172 001254 DT15:  <:WORD  $REGO,$REG4, TESTNO,SERRPC, 
1760 015226 001162 001172 001264 DT16:  .WORD  $REGO,$REG4,WASSRO, $REG2, TESTNO, SERRPC .0 
1761 015244 001162 001172 001270 DT17:  .WORD  $REGO,$REG4,WASSR2,SREG3, TESTNO, SERRPC ,0 
1762 015262 001270 001164 001254 DT20:  .WORD WASSR2, $REG1, TESTNO, SERRPC ,0 
1763 015274 001176 001202 001264 DT21: .WORD $TMPO,$TMP2,WASSRO,WASSR2, TESTNO, SERRPC .0 
1764 015312 001264 001270 001254 DT22:  .WORD WASSRO,WASSR2, TESTNO, SERAPC ,0 
1765 015324 001164 001166 001254 DT24: :WORD $REG1,$REG2,TESTNO,SERRPC, 

- 1766 015336 001162 001164 001264. DT26:. _ .WORD “SREGO. $REGT -WASSRO-WASSRZ. TESTNO, SERRPC 0 
1767 015354 001164 001170 001264 DT27: ~.WORD ~ $REG1,$REG3,WASSRO,WASSR2, TESTNO, SERRPC .0 
1768 015372 035230 001176 001254 DT30: .WORD ACSMSP,S$TMPO, TESTNO, SERRPC ,0 
1769 015404 001254 001116 D132:  .WORD TESTNO,$ERRPC,O 
1770 015412 001164 001166 001170 DT34: WORD $REG1,$REG2,$REG3.TESTNO, SERRPC 0 
1771 015426 001264 001164 001254 DT36:  .WORD WASSRO,$REG1,TESTNO,SERRPC ,0 
1772 015440 001162 001254 001116 DT40: :WORD $REGO,TESTNO,SERRPC,0 
1773 015450 001264 001266 001270 DT41:  :WORD WASSRO,WASSRi,WASSR2, TESTNO,BADPC ,0 
1774 015464 001162 001164 001254 DT42:  :WORD $REGO,$REG1,TESTNO, SERRPC 0 
1775 015476 001162 001164 001166 DT43:  .WORD  $REGO,$REG1,$REG2, TESTNO, SERRPC ,0 
1776 015512 001264 001266 001270 DT45:  :WORD WASSRO,WASSR1,WASSR2, TESTNO, SERRPC ,0 
1777 015526 001170 035226 001254 D146:  .WORD $REG3,ACSMPS,TESTNO, SERRPC 0 
1778 015540 001162 035220 001254 DT47: .WORD $REGO.CSM1ST.TESTNO, SERRPC ,0 
1779 015552 001176 035222 001254 DT50: :WORD . $TMPO.CSM2ND,TESTNO, SERRPC 0 
1780 015564 035224 001254 001116 DT52: :WORD CSM3RD,TESTNO,$ERRPC,0 
1781 015574 001254 001116 001176 DT55:  .WORD TESTNO,$ERRPC,$TMPO,$REGO,0 
1782 015606 001254 001116 001176 DT57:  :WORD TESTNO.$ERRPC,.$TMPO,$TMP1,0 
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DATA FORMAT BYTE STRINGS 


ATA FORMAT BYTE STRINGS 





eeaee TRAP 
179 
179 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1a 
1803 01 
1804 015656 
1805 015660 
1806 015662 
1807 
1808 
1809 
1810 
1811 015664 
1812 015670 
1813 015674 
1814 015700 
1815 015702 
1816 015710 
1817 015714 
1818 015720 
1819 015724 


005227 
177777 
001401 
000000 


012637 
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ekeee 


RRERK 


.SBTTL TRAP HANDLING ROUTINES 
- SBTTL CPU TRAP HANDLER ROUTINE 


{RARER EAE A AREER RARER AAA ARERR AREER ARERR ERE R RARER ERTS 


RkaKE 


cf 
* THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS THRU 
3s ERRVEC’' (LOC. 004). IF THIS SUBROUTINE IS ENTERED BY A 
zs SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A HALT IS 
zs EXECUTED. 
** 
[eee Ee Chaar THe wel 
TIMERR: INC (PC)+ SMAKE FLAG ZERO IF, FIRST TIME THRU 
TIMFLG: .WORD -1 “NEGATIVE ONE FOR "HAVE ENTERED’' FLAG 
BEQ 1$ TBRANCH IF FIRST TIME IN 
HALT ‘STOP! = I°VE ENTERED THIS ROUTINE 
tA SECOND TIME BEFORE I FINISHED 
“REPORTING THE FIRST ERROR. THE 
SECOND ENTRY ADDRESS SHOULD BE ON 
[THE KERNEL STACK. 
1$: MOV (KSP)+,TRAPPC  :SAVE PC+2 AT TIME OF ABORT 
MOV (KSP)+,TRAPPS :SAVE PS AT TIME OF T 
MOV KSP,WASR6 TSAVE STACK POINTER VALUE 
ERROR +1 [UNEXPECTED TRAP OR ABORT TO LOC. 4 
015656 MOV #-1, TIMFLG MAKE FLAG NEGATIVE ONE FOR NEXT TIME 
CLR CPUERR [CLEAR THE CPU ERROR REGISTER 
MOV TRAPPS,=(KSP) :PUT PC & PS OF TRAP ON STACK 
MOV TRAPPC = (KSP) 
RTT :RETURN FROM INTERRUPT OR ABORT 


SEQUENCE 64 


} 
' 
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MEMORY MANAGEMENT TRAP HANDLER ROUTINE 


820 » SBTTL MEMORY MANAGEMENT TRAP HANDLER ROUTINE 


821 RARER ARR AER AAA A AERA AAA RARE RAE E RARE RAR AER EAR EEE ERS 

822 4 

823 ie THIS SUBROUTINE WILL HANDLE ALL UNEXPECTED MEMORY MANAGEMENT 

1824 ie TRAPS AND ABORTS THRU 'MMVEC’’ (LOC. 250). IF THIS SUBROUTINE IS 
1825 :* ENTERED ONBY A SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A 
1826 3* HALT IS EXECUTED. 

w 

1828 +: 2 ae Se i cae Tee Gael 

1829 015726 005227 MGMERR: INC (PC) + MAKE FLAG ZERO IF FIRST TIME THRU 

1830 015730 177777 MGMFLG: .WORD <1 “NEGATIVE ONE FOR “HAVE ENTERED’ FLAG 
1831 015732 001401 BEQ 1$ “BRANCH IF FIRST TIME IN 

1832 015734 000000 HALT STOP! = I'VE ENTERED THIS ROUTINE 

1833 ZA SECOND TIME BEFORE FINISHED 

PORTING THE FIRST ERROR. T 

1835 “SECOND ENTRY ADDRESS SHOULD BE ON 

1836 [THE KERNEL STACK. 

1837 015736 012637 001260 1$: MOV (KSP)+,TRAPPC SAVE PC+2 AT TIME OF ABORT 

1838 015742 012637 001262 MOV (KSP)+,TRAPPS SAVE PS AT TIME OF ABORT 

1839 015746 010637 001256 MOV KSP ,WASR6 “SAVE STACK POINTER VALUE 

840 015752 013737 177572 001264 MOV SRO, WASSRO [SAVE CONTENTS OF KT STATUS REG. 0 

1841 015760 013737 177576 001270 MOV SR2,WASSR2 SAVE CONTENTS OF KT STATUS REG. 2 

842 015766 042737 160000 177572 BIC #160000, SRO SCLEAR ERROR BITS IN STATUS REG 0 

843 015774 104002 ERROR +2 TUNEXPECTED TRAP OR ABORT TO LOC. 250 
844 015776 012737 177777. 015730 ° MOV #-1 .MGMFLG MAKE FLAG NEGATIVE ONE FOR NEXT TIME 
845 016004 013746 001262 MOV TRAPPS,-(KSP)  :PUT PC & PS OF TRAP ON STACK 

846 016010 013746 001260 MOV TRAPPC ,~(KSP) 

847 016014 000006 RTT ;RETURN FROM INTERRUPT OR ABORT. 

1849 STHE NEXT LOCATIONS ARE RESERVED FOR ANY PERMANENT PATCHES: 

B50 016016 000000 000000 000000 PATCH: .WORD 0,0,0,0,0,0,0.0,0,0.0.0,0.0,0,0.0,0.0.0,0,0,0,0.0.0.0.0.0,0 
851 016112 000000 000000 000000 "WORD 0.0.0.0.0.0,0.0,0.0.0.0.0,0,0,0,0,0,0,0,0,0,0,0,0.0,0,0,0,0 






020304 
020310 
020314 
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020000 


7 
112737 


012737 


012737 


013746 


7 
132737 


036164 
000340 


000002 
020170 
020160 
000006 
000010 
000012 
001310 


020206 
020214 


177777 


020270 


000176 
000174 


000004 
001232 
000200 





































001115 


036164 
000010 


036164 
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weeee = STARTING POINT OF TEST ***** 
weeee STARTING ADDRESS OF 200 ***** 


20000 
START: 
.SBTTL INITIALIZE THE COMMON TAGS 
:zCLEAR THE COMMON TAGS (SCMTAG) AREA 
MO ASCMTAG,R6 s;FIRST LOCATION TO BE CLEARED 
CLR (R6)+ 3;CLEAR MEMORY LOCATION _ 
CMP MSAR,R6 ; ;DONE? 
BNE .~6 ;LOOP BACK IF NO 
MOV WSTACK K,SP + SETUP THE STACK POINTER 
s; INITIALIZE A FEW VECTORS 
MOV #SSCOPE ,A#IOTVEC Sfive VECTOR FOR SCOPE ROUTINE 
MOV #340, a#lOTVEC+2 7 ;LEVEL 
MOV ASE RROR, avEMTVEC ss Emr VECTOR FOR ERROR ROUTINE 
MOV tne fl @#EMTVEC+2 ;:LEVEL 7 
MOV ASTRAP, @#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
MOV #340, as TRAPVEC +2: LEVEL 7 
MOV ASPWRDN VEC Tanne FAILURE VECTOR 
MOV #340, SPPURVEC + + sLEVE Gi 
MOV SENDCT, SEOPCT ‘SETUP END-OF -PROGRAM COUNTER 
CLR ESCAPE i; CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1 ,~ SERMAX LLOW ONE ERROR PER TEST 
sz INITIALIZE THE 'T-BIT'' TRAP vector. a LOAD LOCATION, “SRTRN', IN 
+: THE ‘END-OF-PASS'’ (SEOP) ROUTINE, WITH A ‘RTI'' OR ' 
MOV ASRTRN,AATBITVEC 3SET nA BIT VECTOR TO — 
MOV #340, QA TBITVEC+2 :cLEVEL 7 
MOV #RTI,SRTRN 3SET | SRTRN TO A RTI 
sy #658 -@ARESVEC PETRY Ly A A RTT 
L oe 
MOV #64$,-(SP) : 7 AND PC 
RTT Z TRY THE RTT 
64$: Ay 2 iene + RTT IS LEGAL--SET $RTRN TO A RTT 
65$: ADD #10,SP T ILLEGAL--CLEAN OFF THE STACK 
66$: MOV #RESVEC+2, amesvit” TTRESTORE TRAP id _ ER 
CLR $TBIT LEAR ''T’’ BIT SWITC 
MOV #.,$LPADR 33 INITIALIZE THE LOOP M ADDRESS FOR SCOPE 
MOV #.,SLPERR ETUP THE art LOOP ADDRESS 
ath FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
EQUAL TO A ‘''-1°', SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV @MERRVEC ,- (SP) dS ERROR eh 
MOV #67$, a#ERRVEC :SET UP ERROR VECTOR 
MOV ADSWR, SWR +: SETUP FOR A HARDWARE SWICH REGISTER: 
MOV #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
CMP #-1,aSWR ze TRY TO REFERENCE HARDWARE SWR 
BNE 69$ ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT = 
BR 68$ :BRANCH IF NO TIMEOUT 
67$: ney. #68$, (SP) *3SET UP FOR TRAP RETURN : 
68$: MOV ASWREG , SWR :zPOINT TO SOFTWARE SWR 
MOV #DISPREG, DISPLAY 
69$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
CLR $SPASS ::CLEAR PASS COUNT 
BITB WAPTSIZE,SENVM ;;TEST USER SIZE UNDER APT 

















CKKTBCO 11/44 MEM MGMT PRT B 
INITIALIZE THE COMMON TAGS 


020322 001403 BEQ 70$ 
020324 012737 001246 001140 MOV ASSWREG, SWR 
020332 70$: 

1857 sy ob TYPE PR 


020350 104401 020416 
020354 005737 000042 
020 


360 001012 BNE 73$ 

362 123727 001244 000001 CMPB SENV, 1 
020370 001406 BEQ 73$ 
020372 023727 001140 000176 CMP SWR ,ASWREG 
020400 001005 BNE 74$ 
020402 104407 GTSWR 
020404 000403 BR 74$ 
620406 112737 000001001134 73$: MOVB #1 ,$AUTOB 
020414 74$: 


020414 000420 

020456 71$: 
1858 
1859 020456 LOOP: 
1860 020456 012706 001100 MOV #STACK,KSP 
1861 020462 012737 040000 177776 MOV #40000,PSW 
1862 020470 012706 000700 MOV #SUPSTK, SSP 
1863 020474 012737 140000 177776 MOV #140000,PSW 
1864 020502 012706 00060 MOV MUSESTK USP 
1865 020506 037 177776 CLR PSW 
1 512 012737 015654 4 MOV #TIMERR, ERRVEC 
1867 020520 012737 000340 000006 MOV #340, ERRVEC+2 
1868 020526 012737 015726 000250 MOV AMGMERR ,MMVE C 
1869 020534 012737 000340 000252 MOV #340, MMVEC+2 
1870 020542 012700 177777 MOV #-1,RO 
1871 020546 010037 015656 MOV RO, TIMFLG 
1872 020552 010037 015730 MOV RO,MGMFLG 
1873 020556 012737 000340 001274 MOV #340, TBITPS 
1874 020564 005037 177572 INIT: CLR MMRO 
1875 020570 012737 000020 172516 MOV #BIT4.MMR3 
1876 020576 00473 PC ,APRINIT 


C_ 6 
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YPE .72$ 
-SBTTL Ger VALUE FOR SOF TWARE suiTcn REGISTER 
TST arse WE 


SEQUENCE 67 


7:YES,USE NON-APT SWITCH 
[INO,USE APT SWITCH REGISTER 


OGRAM NAME 
3 TYPE “—- as PROGRAM IF. FIRST PASS ° 


020332 005227 177777 3sFIRST TIME? 
020336 001047 BNE 71$ 3 BRANCH IF NO 
020340 022737 036120 000042 (MP ASENDAD ,a#42 33ACT=11? 
020346 001443 3 71$ 


CH IF YES 
YPE ASCIZ_ STRING 
RUNNING UNDER XXDP/ACT? 
7 BRANCH IF YES 
2 ¢ARE WE RUNNING UNDER APT? 
s;BRANCH IF YES 
TISOFTWARE SWITCH REG SELECTED? 
; BRANCH IF NO 
3:GET SOFT-SWR SETTINGS 
3:SET AUTO-MODE INDICATOR 
3GET OVER THE ASCIZ 


BR 71$ 
;;72$: .ASCIZ <CRLF>#CKKTBCO 11744 MEM MGMT PRT BA<CRLF> 


+ INITIALIZE THE STACK POINTER 

; TURN ON SUPERVISOR MODE 

: INITIALIZE SUPER. STACK POINTER 
ON USER MOD 


E 
‘INITIALIZE USER STACK POINTER 
SRETURN TO KERNAL MODE 

;LOAD CPU SERVICE ROUTINE INTO_TRAP eee 
7SET NEW PS TO PRIORITY LEVEL 7-KERNE 

;LOAD MEMORY MANAGENT ROUTINE INTO VECTOR 
SET NEW PS TO PRIORITY LEVEL 7-KERNEL 
:PUT -1 INTO RO Mi aD bn ane FLAGS 
INITIALIZE CPU ERROR FLAG 

MEMORY MANAGEMENT ERROR FLAG 


; E MEM, 
:BUT TURN ON 22-BIT ADDRESSING MODE 
; JUMP TO PAR/PDR INIT ROUTINE 


——_—, 





6 
RR NeCy 11/44 MEM MGMT PRT B MACRO M1113 site 13:04 PAGE Bg SEQUENCE 68 
GROUP 1 ACCESS CONTROL FIELD/SPECIAL ABORTS T 


1878 . SBTTL ~ 1 ACCESS CONTROL Ad veh ok, ABORTS TESTS 
Nee N ee NeZ NaS eNaL Nol eNoLeNeLeNeL NaF eNoleNalaNeSeNeleNVeLeNeFeNoFe\07e\ 


SPSS T ELST eee Tere TeeTeTeTTTTTTTTTTTTITITITITITITIT TTL ttt Ll 


+ | 
44 
;* THE NEXT THREE (3) TESTS CAUSE. MEMORY MANAGEMENT ERRORS 
;* TO CHECK THE ABILITY OF STATUS REGISTER 0 TO RECORD KT 
7 ERRORS AND THE ABILITY OF STATUS REGISTER 2 TO LOCK UP THE 
1885 : s* VIRTUAL ADDR. OF THE INSTRUCTION THAT CAUSED THE ERROR. 
;* THE BITS OF SR2 ARE CHECKED AND BITS <15:13>, <6:5>, AND <3:0> 
;* ARE CHECKED IN SRO. SO THE SRO AND SR2 LOGIC AND THE 
;* KT ERROR LOGIC ARE CHECKED. 
-* 
7 


RARER EEE EERERERERREREEEEEARAREEERERERERARERAERE REE 


NANT NaS aN Ne aN cL eNeZeNoLeNeZeNeLeNeZaNaSoNeLeNoLeNoL Nel eNe/e\o/e\ 


| E 6 
CKKTBCO 11/44 MEM MGMT PRT B MACRO M1113 28-MAR-81 13:04 PAGE 59 
TEST # 1 = NON-RESIDENT ABORT TEST (ACF=084) 


SEQUENCE 69 





[FOR i IGHTER SCOPE LOOP 
TREPLACE ERROR CALL WITH 


1900 .SBTTL TEST # 1 = NON-RESIDENT ABORT TEST (ACF =084) 
REAR ERE ERATE EERE ERERER REAR 
TEST 1 NON-RESIDENT ABORT TEST (ACF=084) 
*?* 
te THIS TEST CHECKS THE ACCESS CONTROL FIELD (ACF) COMPARATOR 
“®  _ LOGIC BY CAUSING NON-RESIDENT ABORTS IN KERNEL, SUPERVISOR =... te 
:* AND USER MODES. * PDR°4 1S LOADED WITH ACF'S = 0&4 AND 
:* THEN PHYSICAL ADDR. 69000 IS ACCESSED TO CAUSE THE ABORT. 
-* 
, ee ROR Ce ne ae 
020602 000004 TST1: SCOPE 
1901 020604 012700 1$: MOV #600,RO ;LOAD DATA FOR PAR'S INTO R 
- 1902 020610 010037 172346 MOV RO, KIPAR3 [MAP KERNEL PAR'S 384 TO 116K 
1903 020614 010037 172350 MOV RO.KIPARG 
1904 020620 010037 172246 MOV RO.SIPAR3 ;MAP SUPERVISOR PAR'S 384 TO 12-16K 
1905 020624 010037 172250 MOV RO. SIPARG 
1906 020630 010037 177646 MOV RO.UIPAR3 :MAP USER PAR'S 384 TO 12-16K 
1907 020634 010037 177650 MOV RO. UIPARG 
1908 020640 012700 060000 MOV #60000 RO LOAD VIRTUAL ADDR. TO REFERENCE PDR3 INTO RO 
1909 620644 012701 10 MOV #100000,R1 “LOAD VIRTUAL ADDR. TO REFERENCE PDR4 INTO R1 
1910 020650 012703 100011 MOV #100011.R3 “LOAD R3 WITH WHAT SRO SHOULD READ - N.R., KERNEL, PG.4 
1911 020654 012702 077400 MOV #77400 ,R2 “LOAD ACF=0 (NON-RESIDENT) PDR VALUE IN Ré 
1912 02 012737 020734 000250 2s: MOV #5$ ,MMVEC :POINT MEM. MGMT. TRAP VECTOR TO 5$ BELOW 
1913 02 010237 172310 MOV R2,KIPDR4 [LOAD ACF TEST VALUE INTO KIPDR4 
1914 020672 010237 172210 MOV R2.SIPDR4 “LOAD ACF TEST VALUE INTO SIPDR4 
1915 020676 010237 177610 MOV R2,UIPDR4 [LOAD ACF TEST VALUE INTO UIPDR4 es 
1916 020702 012737 020716 001110 MOV #38. SLPERR SET LOOP ON ERROR POINTER TO 3$ 
1917 020710 012737 000001 177572 MOV 1 ,.MMRO STURN ON MEMORY MANAGEME 
1918 020716 005010 3$: CLR (RO) [CLEAR PHYS. LOC. 60000 USING PDR3 
013737 177776 001176 MOV PSW,$STMPO [SAVE PSW IN CASE OF ERROR 
005211 4$: INC (R1) [TRY TO REF. IT USING PDR4 - SHOULD TRAP TO 5$ 
104003 ERROR +3 [MEM. MGMT. ABORT DID NOT OCCUR 
[FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
:'BR 3S" = 000772 
0042 BR 8$ “BRANCH AROUND STATUS REG. CHECKS IF NO ABORT 
062706 000004 5$: ADD #4,SP SRESTORE STACK POINTER 
005710 TST (RO) “DID INSTRUCTION GET ABORTED & NOT EXECUTE 
001401 REQ 6$ BRANCH IF YES 
104004 ERROR +4 : INSTRUCTION WAS NOT ABORTED, LOC. GOT CHANGED 
FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
3$"' = 000764 
013737 177572 001264 68: MOV SRO.WASSRO “READ STATUS REGISTER 0 
013737 177576 001270 MOV SR2.WASSR2 TREAD STATUS REGISTER 2 
020337 001264 CMP R3,WASSRO “DID SRO REPORT NON-RESIDENT ERROR CORRECTLY? 
001401 BEQ 7$ BRANCH IF YES 
104005 ERROR +5 SRO DID NOT REPORT NON-RES. ERROR CORRECTLY 
[FOR TIGHTER SCOPE LOOP 
SREPLACE ERROR CALL WITH 
:'BR 3S" 752 
012704 020726 7$: MOV #4$ RG ‘LOAD R4 WITH WHAT SR2 SHOULD READ 
020437 001270 CMP R4, WASSR2 :DID SR2 LOCKUP RIGHT VIRTUAL ADDR. (=4$)? 
001401 BEQ 8$ BRANCH IF YES 
104006 ERROR +6 SR2 DID NOT LOCK VIRTUAL ADDR. OF NON-RES. ERROR 


om 
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# 1 = NON-RESIDENT ABORT TEST (ACF=084) 


1967 :'BR 3$'' = 000744 

1948 021006 005037 177572 8s: CLR MRO [TURN OFF MEMORY MANAGEMENT 

1949 021012 032737 140000 001176 BIT #140000,$TMPO HAS ACF= “084 BEEN TESTED IN USER YET 

1950 021020 001006 BNE 11$ BRANCH_IF YES 

1951 021022 012703 100151 MOV #100151.R3 LOAD R3 WITH WHAT SRO SHOULD READ - N.R., USER, PG.4 


1952 021026 012737 140000 177776 MOV #140000 ,PSW :G0 TO USER MOD 

1953 021034 000711 BR 2$ :REPEAT TEST IN USER MODE 

1954 021036 022737 040000 001176 11S: CMP #40000, $TMPO HAS ACF=084 BEEN TESTED IN SUPERVISOR YET 

1955 021044 001006 BNE 9$ “BRANCH IF YES 

1956 021046 012703 100051 MOV #100051 ,R3 ;LOAD R3 WITH WHAT SRO SHOULD READ - N.R., SUPERVISOR, PG.4 
1957 021052 012737 040000 177776 MOV #40000 ,PSwW ;GO TO SUPERVISOR MODE 

1958 021060 000677 BR 2$ ZREPEAT TEST IN SUPERVISOR MODE 

1959 021062 022702 077404 9$: CMP #77404 ,R2 SHAS ACF=4 BEEN TESTED YET? 

1960 021066 001407 BEQ 10$ BRANCH IF YES 

1961 021070 012702 077404 MOV #77404 ,R2 7 THEN LOAD ACF=4 (NON-RES) PDR VALUE IN R2 

1962 021074 012703 100011 MOV #100011,R3 [LOAD R3 WITH WHAT SRO SHOULD READ-N.R..KERNEL.PG. 4 
00 005037 177776 CLR PSW ;GQ, BACK TO KERNEL MODE 

04 000665 BR 2$ G@ BACK & TEST ACF=4 IN SAME MODE 

06 005037 177776 10$: CLR PSW :6¢ BACK TO KERNEL MODE BEFORE LEAVING 

12 012737 015726 000250 MOV AMGME RR , MMVE C RESTORE ADDRESS OF NORMAL MEMORY 

967 GEMENT ERROR ROUTINE TO MMVEC 


MoNMNPP 


——# 


[ 
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TEST # 2 = READ-ONLY ABORT TEST (ACF=2) 





1976 .SBITL TEST # 2 = READ-ONLY ABORT TEST (ACF=2) 
| 5 REE REE EEE EERE REE ARAE RAE RERERERRE EERE 
;#TEST 2 READ-ONLY ABORT TEST (ACF=2) 
| > THIS TEST CHECKS THE ACCESS CONTROL FIELD (ACF) COMPARATOR 
:* LOGIC BY CAUSING READ-ONLY ABORTS IN oh wheter AND 
hed USER MODES. PDR 4 IS LOAD WITH ACF=2 AND T 
:* PHYSICAL ADDR. 60000 IS WRITTEN TO CAUSE THE ABORT 
** 
LER RRR EEE REE EERE EE 
021120 000004 TST2: SCOPE 
1977 021122 1$: ;KERNEL, SUPERVISOR AND USER PAR'S 3-8 4, 
1978 [AND PDR 3 ARE SETUP FROM LAST TEST 
1979 021122 012700 06 MOV #60000 ,RO ;LOAD VIRTUAL ADDR. TO REFERENCE PDR3 INTO RO 
021126 012701 100000 MOV #100000,R1 ;LOAD VIRTUAL ADDR. TO REFERENCE PDR4 INTO R1 
1981 021132 012703 020011 MOV #20011 ,R3 [LOAD R3 WITH WHAT SRO SHOULD READ - R/O, KERNEL, PG.4 
1982 021136 012702 07740 MOV #77402 ,R2 ;LOAD ACF=2 (READ-ONLY) PDR VALUE IN R2 
1983 021142 012737 021214 000250 2$: MOV #5$ ,MMVEC POINT MEM. MGMT. TRAP VECTOR TO 5$ BELOW 
1984 021150 010237 17231 MOV R2,.KIPDR4 ;LOAD ACF=2 INTO KIPDRé 
1985 021154 010237 172210 MOV R2,SIPDR4 ;LOAD ACF=2 INTO SIPDR4 
1986 021160 010237 177610 MOV R2,UIPDR4 [LOAD ACF=2 INTO UIPDR4 
1987 021164 012737 021176 001110 MOV #3$ ,$LPERR :SET LOOP ON ERROR Ao th TO 3$ 
1988 021172 005237 177572 INC MMRO ; TURN ON MEMORY MANAGEMENT 
1989 021176 005010 3$: CLR (RO) 7CLEAR PHYS. LOC. 60000 USING PDR3 
1990 021200 013737 177776 001176 MOV PSW,STMPO [SAVE PSW IN CASE OF ERROR 
1991 021 005211 4$: INC (R1) ;TRY TO WRITE USING PDR4 = SHOULD TRAP TO 5$ 
1992 021210 104003 ERROR +3 7MEM. MGMT. ABORT DID NOT OCCUR 
1993 [FOR TIGHTER SCOPE LOOP 
1994 ;REPLACE ERROR CALL WITH 
1995 7'BR 3$"' = 000772 
1996 021212 25 BR 8$ ; BRANCH H AROUND STATUS REG. CHECKS IF NO ABORT 
1997 021214 2706 000004 5$: ADD #4 ,SP RESTORE STACK POINTER 
1998 021220 005710 TST (RO) DID INSTRUCTION GET ABORTED & NOT EXECUTE 
1999 021222 001401 BEQ 6$ [BRANCH IF YES 
2000 021224 104004 ERROR +4 z INSTRUCTION WAS NOT ABORTED, LOC. GOT CHANGED 
2001 :FOR TIGHTER SCOPE LOOP 
2002 ;REPLACE ERROR CALL WITH 
2003 3$"* = 000764 
2004 021226 013737 177572 001264 68: MOV SRO ,WASSRO ‘READ STATUS REG. 0 
2005 021234 013737 177576 001270 MOV SR2,WASSR2 READ STATUS REG. 2 
2006 021242 020337 001264 CMP R3,WASSRO :DID oy REPORT READ-ONLY ERROR CORRECTLY? 
2007 021246 001401 BEQ 7$ “BRANCH IF YES 
2008 021250 104005 ERROR +5 cone DID NOT REPORT R/O ERROR CORRECTLY 
2009 ;FOR TIGHTER SCOPE LOOP 
2010 REPLACE ERROR CALL WITH 
2011 : 3$"* = 000752 
2012 021252 012704 021206 7$: MOV #4$ RG ;LOAD R4 WITH WHAT SR2 SHOULD READ 
2013 021256. 020437 1270 CMP R4,WASSR2 - ;DID SR2 ‘<9 RIGHT VIRTUAL ADDR. (=4$)? 
2014 021262 001401 BEQ 8$ [BRANCH IF YES 
2015 021264 104 ERROR +6 :SR2 DID NOT LOCKUP VIRTUAL ADDR. OF R/O ERROR 
2016 [FOR TIGHTER SCOPE LOOP 
2017 ; REPLACE ERROR CALL WITH 
2018 7'BR 3$°' = 000744 
2019 0212 005037 177572 CLR MMRO > TURN OFF “MEMORY MANAGEMEN 
2020 021272 032737 140000 001176 BIT #140000,$TMPO  :HAS ACF=2 BEEN TESTED IN USER MODE ? 
2021 021300 001006 BNE 11$ [BRANCH _IF YES 
2022 021302 012703 020151 MOV #20151,R3 LOAD R3 WITH WHAT SRO SHOULD READ-R/O, USER, PG.4 


“oO 


2023 021 

2024 02131 
5098 051816 
2026 021 


012 


737 
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EST # 2 = READ-ONLY ABORT TEST (ACF =2) 


140000 
040000 
020051 
040000 


177776 
015726 


177776 
001176 


177776 


000250 


11$: 


MOV 


H 6 
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#140000 ,PSw 
Ppp 
#20051,R3 
yeaah 


PSW 
AMGMERR , MMVE C 


SEQUENCE 72 


:G0 TO USER MODE 
;REPEAT TEST IN USER MODE 
THAS ACF=2 BEEN TESTED IN SUPERVISOR MODE ? 
~;BRANCH_IF YES 
;LOAD R3 WITH WHAT SRO SHOULD READ-R/0, SUPERVISOR, PG.4 
3;GO TO SUPERVISOR MODE 
;REPEAT TEST IN SUPERVISOR MODE 
BACK TO KERNEL MODE BEFORE LEAVING 
“RESTORE ADDRESS OF NORMAL MEMORY 
[MANAGEMENT ERROR ROUTINE TO MMVEC. 


I 6 
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Bes TEST # 3 = TEST ILLEGAL MODE *10"’ 

| 


| 20463 .SBTTL TEST # 3 = TEST ILLEGAL MODE “10” 
l RRS RRAAAAAAARHEARERAAREHERERARAAARARAEREHHAAHARHAAeAKATeAHeeAHAse 
TSTEST 3 TEST ILLEGAL MODE ‘'10°° 
*@ 
te THIS TEST CHECKS TO SEE THAT A 10 IN THE CURRENT MODE BITS OF THE 
te PSW WHILE MEMORY MANAGEMENT IS ON IS ILLEGAL. 
* MEMORY MANAGEMENT ABORT SHOULD OCCUR AND STATUS "REGISTER 0 
:* SHOULD REPORT NON-RESIDENT ABORT, MODE = 10, PAGE =-1 (100103). STATUS 
te REGISTER 2 SHOULD <_bocKur THE ADDRESS OF THE INSTRUCTION 
te THAT LOADED THE P 
*® 
ane le a a a 
021354 000004 1ST3: SCOPE 
2044 021356 012737 021400 001110 18: MOV #108, SLPERR ;SET LOOP ON ERROR POINTER TO 10S 
3045 021364 012737 021420 000250 MOV #38 fave “LOAD MEM. MGMT. TRAP VECTOR WITH 3$ 
3046 021372 012737 000001 177572 MOV 2 TURN ON MEMORY MANAGEMENT 
5047 021400 012737 100000 177776 10% MOV +160000. PSW *SET 10 IN PSW CURRENT MODE BITS 
2048 021406 104030 2$ ERROR +30 “ILLEGAL MODE 10 NOT ABORTED 
2049 :FOR A TIGHTER SCOPE LOOP, REPLACE ERROR CALL WITH ‘BR 108°’ = 000774 
5050 021410 012737 015726 000250 MOV WMGMERR,MMVEC RESTORE MEM. MGMT. ABORT VECTOR 
2051 021416 000437 BR 5$ “BRANCH AROUND SRO & SR2 CHECKS 
2 021420 013737 177576 001270 38: MOV SR2.WASSR2 “READ CONTENTS OF SR2 
021426 012737 015726 000250 MOV #MGMERR.MMVEC :RESTORE MEM. MGMT. ABORT VECTOR 
54 021434 012706 001100 MOV #KERSTK.SP :RESTORE STACK POINTER 
021440 022737 100103 177572 CMP #100103.SRO D SRO REPORT ILLEGAL MODE CORRECTLY? 
021446 001406 BEQ 4$ YES 
021450 012701 100103 MOV #100103,R1 “LOAD EXPECTED CONTENTS OR SRO INTO R1 
021454 013737 177572 001264 MOV SRO, WASSRO ;READ CONTENTS OF SRO 
021462 104031 ERROR +31 SRO DID NOT REPORT NR ABORT, PG=1, MODE=10 
:FOR TIGHTER scobe LOOP, REPLACE ERROR CALL WITH ‘BR 10$'' = 000746 
021464 032737 100000 172516 4$: BIT eT T15,SR3 :SEE IF ECO #8 HAS BEEN INSTALLED :DPMO01 
021472 001003 BNE 45$ “BRANCH TO ECO #8 COMPARE IF SO :DPMOOT 
021474 012701 021400 MOV #10$,R1 “LOAD EXPECTED CONTENTS OF SR2 INTO R1 
021500 000402 BR 46$ ‘BRANCH TO DO THE COMPARE :DPMO01 
021502 012701 021406 45$: MOV #2$,R1 “LOAD EXPECTED CONTENTS OF SR2 INTO R1_ ;DPMOO1 
2066 021506 020137 001270 46$: CMP R1,WASSR2 ‘DID SR2 LOCKUP VIRT. ADDR OF ABORTED INST. 
021512 001401 BEQ 5$ “BRANCH IF YES 
021514 104013 ERROR +13 :$R2 DID NOT LOCKUP VIRT. ADDR. OF ILL. MODE INST. 
9 :FOR TIGHTER SCOPE LOOP, REPLACE ERROR CALL WITH ‘BR 10$'' = 000731 
021516 042737 160000 177572 5$: BIC #160000, SRO =CLEAR POSSIBLE ERROR BITS IN SRO 
1 , ee RRRREARERERRRARRRRREERERREEEARERERAEA RAAT RARER ERE E RRR 


* 

* THE NEXT TWO (2) TESTS WILL BE CHECKING THE PAGE LENGTH 

* COMPARATORS AND SOME MORE OF THE KT ERROR DETECTION 

* AND STATUS LOGIC. THE PAGE LENGTH FIELD (PLF) IN KERNEL 

* PDR 4 IS VARIED AND FOR EVERY PLF, THREE (3) VIRTUAL 

* set yb ARE READ. WHILE USING BOTH UPWARD & DOWNWARD PAGE 
* EXPANSION, ONE OF THOSE THREE VIRTUAL ere WILL CAUSE A 
;* "PAGE LENGTH ABORT’ WHILE THE OTHER TWO WON 
& 

* 

* 

* 

* 


STATUS REGISTER 0 & 2 _ Rigs y WHEN THE PAGE LENGTH 

ABORT DOES OCCUR TO SEE T THE ABORT IS REPORTED AND THAT 

hg A, saone OF THE INSTRUCTION THAT CAUSED THE ABORT 
L 


RARER AREEERAAAAEEAEAAAREAAAREER AERA RARER e 
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TEST # 4 = PAGE LENGTH FAULTS=UPWARD EXPANSION 
2098 .SBTTL TEST # 4 = PAGE LENGTH FAULTS-UPWARD EXPANSION 
pPUAeeeeneenereeeeeeeeretereraearaaeRAeRAAreResARAeaKIAAe Ae eAes 
:STEST 4 PAGE LENGTH FAULTS-UPWARD EXPANSION 
ie THIS TEST VARIES THE PAGE LENGTH FIELD (PLF) IN KERNEL PDR 4 
ie FROM 1 TO 177 AND FOR EACH PLF, THREE VIRTUAL ADDRESSES (VBA‘S) 
ie ARE ACCESSED. WHEN VBA <12:6> IS LESS THAN OR EQUAL TO PDR <14:8> 
:* NO ABORT SHOULD OCCUR. — WHEN VBA <12:6> IS GREATER THAN POR <14:8>, 
ie A PAGE LENGTH ABORT SHOULD OCCUR AND BE REPORTED BY SRO & SR2. 
:* THE PAGE EXPANSION DIRECTION IN THIS TEST IS UPWARD, (THE ED BIT 
ie (BIT 3) OF PDR 4 = 0). 
-* 
+; Z RAE EAA AERA REERREEEEERMCRAREEEAEAEREARAEARRERAARAERAREREEH 
021524 TS14: SCOPE 
2099 021526 012737 077406 172306 18: MOV «#77406, KIPDR3 ;MAKE SURE PDR3 IS DESCRIBED AS R/W 
2100 021534 012737 077406 172312 MOV -#77406;KIPDR5 MAKE SURE PDR5 IS DESCRIBED AS R/W 
2101 021542 012700 100000 mov - #700000,RO [LOAD VIRTUAL ADDR. TO SELECT PDR4 INTO RO 
2102 021546 012704 MOV #406, R4 [LOAD FIRST PDR VALUE IN R4 (PLF=1, ACF=6) 
2103 021552 012737 021744 000250 28: MOV = #9S,MMVE [SETUP M.M, TRAP VECTOR FOR UNEXPECTED ABORTS 
2104 021560 010437 172310 MOV —- RG, KIPDR4 [LOAD KIPDR4 WITH PAGE LENGTH VALUE 
2105 021564 012737 021572 001110 Mov #38, $LPERR ;SET LOOP ON ERROR POINTER TO 3S 
2106 021572 012706 001100 ae Se MOV WKERSTK, KSP MAKE SURE STACK POINTER IS ALL SET UP 
2107 021576 011001 MOV (RO) ,R TACCESS VIRTUAL ADDR. (VBA < PLF = NO ABORT) 
2108 021600 062700 000100 ADD #1007RO ;FORM NEXT VIRTUAL ADDRESS IN RO 
2109 0 012737 021612 001110 MOV  #4$, $LPERR SET LOOP ON ERROR POINTER TO 4$ 
2110 021612 012706 001100 4$: MOV’ = #KERSTK,KSP TMAKE SURE STACK POINTER IS ALL SET UP 
2111 021616 011001 MOV (RO) ,R1 ACCESS VIRTUAL ADDR. (VBA=PLF - NO ABORT) 
2112. 021620 062700 000100 ADD —«- #100, RO ZFORM NEXT VIRTUAL ADDR IN RO 
2113 021624 020027 117700 CMP —s-_ RO, #117700 :HAVE ALL PLF'S BEEN TESTED YET? 
2114 021630 001470 BEQ 108 BRANCH IF ALL VBA'S & PLF'S HAVE BEEN USED 
2115 021632 012737 021646 001110 MOV #5$,$LPERR [SET LOOP ON ERROR POINTER TO 5$ 
2116 021640 012737 021654 000250 MOV - #6$. MMVEC [SETUP M.M, TRAP VECTOR FOR EXPECTED ABORT 
2117 021646 011001 5$: MOV (ROS .R1 ACCESS VIRTUAL ADDR. (VBA > PLF - ABORT TO 6$) 
2118 021650 104010 ERROR +10 SEXPECTED PAGE LENGTH ABORT DID NOT OCCUR 
2119 :FOR TIGHTER SCOPE LOOP 
2120 ;REPLACE ERROR CALL WITH 
2121 :'BR 5$" = 000776 
2122 021652 000424 Bre 8$ “BRANCH AROUND ABORT CHECKS 
2123 021654 012706 001100 6$: MOV -—« AKERSTK,KSP ss: RESTORE STACK POINTER FOLLOWING ABORT 
2124 021660 013737 177572 001264 MOV SRO, WASSRO [READ M.M. STATUS REG. 
2125 0 013737 177576 001270 MOV SR2, WASSR2 TREAD M.M. STATUS REG. 2 
2126 021674 012702 040011 Mov  #40011,R2 PUT EXPECTED SRO CONTENTS IN R2 
2127 021700 020237 001264 CMP RR, WASSRO :D1D SRO REPORT PG. LENGTH ABORT, PAGE 4, KERNEL? 
2128 021704 001401 BEQ BRANCH IF 
2129 021706 104011 ERROR sil SRO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 
2130 FOR TIGHTER SCOPE LOOP 
2131 ;REPLACE ERROR CALL WITH 
2132 :'BR 5$"' = 000757 
2133 021710 012703 021646 7$: MOV =: #5$,R3 ZPUT EXPECTED SR2 CONTENTS IN R3 
2134 021714 020337 001270 (MP  —s-R3,, WASSR2 ;DID SR2 LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 
2135 021720 001401 BEQ sé CH IF YES 
2136 021722 104012 ERROR +12 :SR2 DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 
2137 “FOR TIGHTER SCOPE LOOP 
2138 ;REPLACE ERROR CALL WITH 
2139 5$"* = 000751 
2140 021724 042737 160000 177572 88: BIC #160000, SRO =CLEAR ERROR BITS IN SRO 
2141 021732 062704 000400 ADD #400, R4 FORM NEXT PLF VALUE FOR KIPDR4 
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FAULTS=UPWARD EXPANSION 


000250 


i0$: 


#100,RO0 
2$ 


(KSP) +, TRAPPC 
(KSP) +, TRAPPS 
ano UASSRe 
#160000, SRO 


+7 


TRAPPS ,=(KSP) 
TRAPPC ,=(KSP) 


A#MGME RR , MMVE C 


FORM FIRST VIRT. ADDR FOR THA 
;BRANCH 


SEQUENCE 75 


T PLF VALUE 
H BACK AND ACCESS 3 VBA'S FOR 
;THE PLF VALUE JUST FORMED 
TSAVE PC & PS OF TRAP 


;SAVE CONTENTS OF SRO FOR ERROR 

TSAVE CONTENTS OF SR2 FOR ERROR 

[CLEAR ERROR BITS IN SRO 

:GOT PG. LENGTH ABORT BEFORE IT WAS EXPECTED 
[FOR TIGHTER SCOPE LOOP 

:REPLACE, E ERROR Te WITH 


zA 240 
PUT PC e PS OF TRAP ON STACK 


RETURN FROM UNEXPECTED ABORT ~ 


RESTORE NORMAL M TRAP HANDLER 
SADDRESS TO M.M. TRAP VECTOR 
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TEST #5 = PAGE LENGTH FAULTS=DOWNWARD EXPANSION 


ne _SBITL TEST #5 = PAGE LENGTH FAULTS=DOWNWARD EXPANSION 


SEQUENCE 


76 


6 
ox 11/44 MEM MGMT PRT B MACRO gum Agen 13:04 PAGE es SEQUENCE 77 
# 5 = PAGE LENGTH FAULTS=DOWNWARD EXP. 


2172 .SBTTL TEST # 5 = PAGE LENGTH FAULTS=DOWNWARD EXPANSION 
RAE AAA EERE EREEEEEERE 
TRTEST 5 PAGE LENGTH FAULTS-DOWNWARD EXPANSION 
*® 
:* THIS TEST VARIES THE PAGE LENGTH FIELD (PLF) IN KERNEL PDR4 
ts FROM 176 TO 0 AND FOR EACH PLF, THREE VIRTUAL ADDRESSES (VBA‘'S) 
:* ARE ACCESSED. WHEN VBA <12:6> IS GREATER THAN OR EQUAL TO PDR <14:8> 
:* NO PAGE ABORT SHOULD OCCUR. WHEN VBA <12:6> IS LESS THAN PDR <14:8> 
:* A PAGE LENGTH ABORT SHOULD OCCUR AND BE REPORTED BY SRO & SR2. 
te THE PAGE EXPANSION DIRECTION IN THIS TEST IS DOWNWARD, (THE 0 BIT 
:* (BIT 3) OF PDR4=1). 
** 
|, CoSNENSERSRERAEESEQEERERIRRNDesANesENASENNENESRENTTENNNNNNINS 
0 TST sc 
2173 022022 012700 117700 1$: MOV #117700, RO :LOAD VIRTUAL ADDR. TO SELECT PDR4 INTO RO 
2174 022026 012704 077016 MOV #77016 SLOAD FIRST PDR VALUE IN R4 (PLF=176,ACF=6) 
2175 022032 012737 022224 000250 2s: MOV #9S, MeVeC :SETUP M.M. TRAP VECTOR FOR UNEXPECTED ABORTS 
2176 022040 010437 172310 MOV R4 KIPDR4 [LOAD KIPDR4 WITH PAGE LENGTH VALUE 
2177 022044 012737 022052 001110 MOV #3$,$LPERR ;SET LOOP ON ERROR POINTER TO 5$ 
2178 022052 012706 001100 3s: MOV #KERSTK,.KSP MAKE SURE STACK POINTER IS ALL SET UP 
2179 022056 011001 MOV (RO) RI ZACCESS VIRTUAL ADDR. (VBA > PLF - NO ABORT) 
2180 02 62700 000100 SUB #100,RO =FORM NEXT VIRTUAL ADDRESS IN RO 
2181 02 012737 022072 001110 MOV #4$,$LPERR [SET LOOP ON ERROR POINTER TO 4$ 
2182 022072 012706 4$: MOV #KERSTK ,KSP SMAKE SURE STACK POINTER IS ALL SET UP 
2183 022076 011001 MOV (RO) .R1 ZACCESS VIRTUAL ADDR. (VBASPLF = NO ABORT) 
2184 022100 162700 000100 SUB #100,RO :FORM NEXT VIRTUAL ADDR. IN RO 
2185 022104 020027 100000 CMP RO, #100000 ZHAVE ALL PLF'S BEEN TESTED YET? 
2186 022110 001470 BEQ 10$ BRANCH IF ALL VBA'S & PLF'S HAVE BEEN USED 
2187 022112 012737 022126 001110 MOV #5$,SLPERR [SET LOOP ON ERROR POINTER TO 5$ 
2188 022120 012737 022134 000250 MOV #6S.MMVEC :SETUP M.M. TRAP VECTOR FOR EXPECTED. ABORT 
2189 022126 011001 5$: MOV (ROS ,R1 TACCESS VIRTUAL ADDR. (VBA < PLF - ABORT TO 6$) 
2190 022130 104010 : ERROR +10 [EXPECTED PAGE LENGTH ABORT DID NOT OCCUR 
2191 ; [FOR TIGHTER SCOPE LOOP 
2192 ;REPLACE ERROR CALL WITH 
2193 :'BR 5$'"° = 000776 
2194 022132 000424 BR 8$ BRANCH AROUND ABORT CHECKS 
2195 022134 012706 001100 6$: MOV #KERSTK ,KSP SRESTORE STACK POINTER FOLLOWING ABORT 
2196 022140 013737 177572 001264 MOV SRO, WASSRO TREAD M.M. STATUS REG. 0 
2197 022146 013737 177576 001270 MOV SR2.WASSR2 TREAD M.M. STATUS REG. 2 
2198 022154 012702 040011 MOV #40011,R2 :PUT EXPECTED SRO CONTENTS IN R2 
2199 022160 020237 001264 CMP Re. WASSRO D SRO REPORT PG. LENGTH ABORT, PG. 4, KERNEL? 
022164 001401 BEQ CH IF YES 
2201 022166 104011 ERROR ee 7 SRO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 
2202 :FOR TIGHTER SCOPE LOOP 
2203 ZREPLACE ERROR CALL WITH 
2204 :'BR 5$"° 75 
2205 022170 012703 022126 7$: MOV #5$,R3 “PUT EXPECTED SR2 CONTENTS IN R3 
2206 022174 020337 001270 CMP R3,WASSR2 [DID SR2 LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 
2207 022200 001401 . BEQ 8$ “BRANCH IF YES 
2208 022202 104012 ERROR +12 :SR2 DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 
2209 _- FFOR TIGHTER SCOPE LOOP 
2210 SREPLACE ERROR CALL WITH 
2211 5$"* = 000751 
2212 022204 042737 160000 177572 8$: BIC #160000 ,SRO :CLEAR ERROR BITS IN SRO 
2213 022212 162704 000400 SUB #400,R :FORM NEXT PLF VALUE FOR KIPD 
2214 022216 062700 000100 ADD #100. RO [FORM FIRST VIRT. ADDR. FOR THAT -PLF VALUE 


2215 022222 000703 BR 2$ BRANCH BACK AND ACCESS 3 VBA'S F 
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2226 022260 
2227 022264 
2228 022270 


2229 
2230 022272 
2231 
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001262 
001260 


015726 


000250 


9S: 


10$: 
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(KSP) +, TRAPPC 
(KSP) +, TRAPPS 
SRO. 0 .WASSRO 
ri60008. SRO 


TRAPPS ,=(KSP) 
TRAPPC ,=(KSP) 


AMGME RR ,MMVEC 


SEQUENCE 


;THE PLF VALUE JUST FORMED 
;SAVE PC & PS OF TRAP 


7SAVE CONTENTS OF SRO FOR ERROR 

7SAVE CONTENTS OF SR2 FOR ERROR 

ZCLEAR ERROR BITS IN SRO 

[GOT PG. LENGTH ABORT BEFORE IT WAS EXPECTED 
FOR TIGHTER SCOPE LOOP 


;REPLACE ERROR CALL WITH 
ZA ‘ NOP" 


;PuT PC a PS OF TRAP ON STACK 


;RETURN FROM UNEXPECTED ABORT 


;RESTORE NORMAL M.M. TRAP HANDLER 
SADDRESS TO M.M. TRAP VECTOR 
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TEST # 6 = SR2 BIT TEST 
2245 . » SBTTL TEST # 6 = SR2 BIT TEST 


REAR ERE REA E REE ERE RARER EREREREAEEEEREREREREREEEREERERERE 


eT 


2274 022452 
2275 





TSTEST 6 SR2 BIT TEST 
**® 
:* THIS TEST CHECKS THE BITS IN MEMORY MANAGEMENT REGISTER 2 BY 
:* CAUSING ‘READ-ONLY ABORTS'’ AT VIRTUAL ADDRESSES BETWEEN 100000 
* TO 111000 (PHYSICAL ADDRESSES 060000-071000). KIPDR4 IS USED TO EXECUTE 
:* THE FOLLOWING FOUR WORDS OF CODE WHICH ARE MOVED THRU MEMORY: 
:* 010727 MOV PC, (PC) + iTHIS INSTRUCTION SHOULD CAUSE A R/O ABORT 
:* 000000 VIRTUAL ADDR. SHOULD BE LOCKED UP IN SR2 
3* 000137 JMP an3$ tis INSTRUCTION IS ALSO MOVED THRU MEMORY 
3* (ADDR. OF 3$) ‘IN CASE A R/O ABORT DOES NOT OCCUR, 
* SIN WHICH case SR2 WILL NOT CONTAIN CORRECT ADDR. 
** 
SRR RARER ERR EAR ERRATA ARR ARR ERE ARERR REAR RE EEE 
022 TST6: SCOPE 
46 022302 012737 000600 172346 1$: MOV #600, KIPAR3 :BE SURE PAR3 IS MAPPF) TO 12-16K 
2247 022310 012737 172350 MOV #600, KIPAR4 ‘BE SURE PAR4 IS MAPPED TO 12-16K 
2248 022316 012737 077406 172306 MOV #77406,KIPDR3  :MAP PAGE 3 128 BLOCKS, R/W 
2249 022324 012737 077402 172310 MOV #77402.KIPDR4 :MAP PAGE 4 128 BLOCKS, READ-ONL 
2250 022332 012700 MOV #60000 RO “LOAD RO WITH VIRTUAL ADDR. WHICH "USES PDR3 
2251 O22 012701 MOV #100000,R1 ‘LOAD R1 WITH VIRTUAL ADDR. WHICH USES PDR4 
352 022342 012737 022376 000250 MOV #3$,,MMVEC ‘SET M.M. TRAP VECTOR TO 3$ 
2253 022350 012737 022356 001110 MOV #2$,$LPERR ;SET LOOP ON ERROR POINTER TO 2$ 
2254 022356 012720 010727 2$: MOV #010727, (RO) + : LOAD "MOV PC. (PC) INSTRUCTION AT ADDR. 
022362 005020 CLR (RO) + REACHED THRU PDR/PAR 4. 
256 022364 012720 000137 MOV #000137,(RO)+ LOAD "UMP es" INSTRUCTION AT VIRT. ADDR. 
2257 022370 012710 022376 MOV #3$, (RO) IN CASE R/O VIOL. DOES NOT ABORT 
2258 022374 010107 MOV R1,PC : TRANSFER PROGRAM EXECUTION TO 'PAGE 4 INSTRUCTIONS’ 
2259 022376 012706 001100 38: MOV #KERSTK,KSP “RESTORE STACK POINTER 
2260 022402 013737 177576 00127 MOV SR2,WASSR2 ;READ CONTENTS OF STATUS REG 2 
2261 022410 020137 001270 CMP R1,WASSR2 WAS ADDR. OF ‘RELOCATED - R/O ABORT'’ LOCKED UP? 
2262 022414 001401 BEQ 4$ “BRANCH IF YES 
2263 022416 104013 ERROR +13 *$R2 DID NOT LOCK UP VIRTUAL ADDR. OF R/O VIOL. 
2264 ‘FOR TIGHTER SCOPE LOOP 
2265 ; REPLACE ERROR CALL WITH 
2266 :'BR 2$"° = 000757 
3267 022420 042737 160000 177572 4$: BIC #160000, SRO “CLEAR THE ERROR BITS IN SRO 
2268 022426 162700 000004 SUB #4,RO RESET RO TO POINT TO NEXT VIRT. ADDR. TO LOAD 
2269 022432 062701 000002 ADD #2.R1 FORM VIRTUAL ADDR. THAT SHOULD BE LOCKED UP NEXT 
2270 022436 020127 111002 CMP R1.4111002 SHAVE ALL VBA'S 100000-111000 BEEN TESTED? 
earl Ceeshe 103745 BLO 2$ “BRANCH IF” NO 
5273 022444 012737 077406 172310 5$: MOV #77406, KIPDR4 ;RESTORE PDR4 TO R/W ACCESS 
012737 015726 000250 MOV #MGME RR , MMVE C :RESTORE ADDRESS OF NORMAL M 


TRAP HANDLER TO M.M. VECTOR 
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2302 022534 
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001110 
001270 


001110 
000250 
001176 
001202 
000250 
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001270 
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001200 


. SBTTL TEST # 7 = MORE CHECKS OF SRO & SR2 


RRR EERE REE EEE ERARERERERE 


;*TEST 7 


aun: oeeeeeeeens 


— 
N 


me mf Be Be Be He Se He Be He Be Be 


™m 
wn 


3$: 
4$: 


5$: 
6$: 


7$: 


8$: 


9$: 


10$: 


FIRST IT CHECKS THAT SR2 ‘‘TRACKS’’ ALONG ACTING 


PROGRAM ALSO SRO & SR2 ARE LOCKED UP BY A PAGE LENGTH 


MORE CHECKS OF SRO & SR2 
THIS TEST PERFORMS SOME ADDITIONAL CHECKS OF THE SRO & SR2 LOGIC. 


COUNTER. 


SEQUENCE 


AS A VIRTUAL = 


ABORT, THEN WITHOUT CLEARING SRO'S ERROR BITS, A R/O ABORT IS CAUSED. 
SRO & SR2 SHOULD NOT BE CHANGED BY THE SECOND ABORT AND THE 
INFORMATION ABOUT THE PAGE LENGTH ABORT SOULD STILL ae LOCKED UP. 
Ry A 'RESET’' IS EXECUTED TO VERIFY THAT SRO IS CLEARED 


#600 ,KIPARS 
#406, KIPDR4 


SR2 IS UNLOCKED BY A RESET. 
SR2 1S CHECKED TO SEE THAT IT IS TRACKING AGAIN. 


REE ERE EEE RE EREREEEREREEEEEREEREEKRERREEREEEEEEE 


wr rAbe skIPORS 


#2$, 
SR2, “WASSRE 


#2$.R1 
R1,WASSR2 
3$ 

+16 


#4$,$LPERR 
Eppa 


#4$,R 
R1,WASSR2 
5$ 

+16 


#6$,S$LPERR 
#7$ ,MMVEC 
TMP 1 


a4#100500 
MKERSTK ,KSP 
R MPO 
a4120000 
MKERSTK ,KSP 


SRO,WASSRO 
SR2,WASSR2 


STMPO. -WASSRO 


$STMP1 
os ,WASSR2 


AFTER MEMORY MANA 


MANAGEMENT IS TURNED BACK ON, 


;MAP KERNEL PAGE 5 TO 12-16K 
SETUP PDR4 FOR PAGE LENGTH ABORT 
; SETUP PDRS FOR R/O ABORT 

7SET LOOP ON ERROR POINTER TO 2$ 
;READ SR2 TO SEE IF ITS TRACKING 
-;PUT EXPECTED VIRTUAL PC IN R1 
:DID SR2 os VIRTUAL PC AT 2$? 


CH IF YES 

:SR2 NOT TRACKING CORRECTLY 
[FOR TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
:'BR 2$'' = 000767 


3SE ON ERROR POINTER TO_4$ 
SREAD SR2 TO SEE IF ITS TRACKING 
;PUT EXPECTED VIRTUAL PC IN R1 

DID CONTAIN VIRTUAL PC AT 4$ 


H_IF YES 
'SR2 NOT TRACKING CORRECTLY 
SCOPE LOOP 
;REPLACE ERROR CALL WITH 
:'BR 4$"' = 000767 


3SET LOOP ON ERROR POINTER TO 6$ 
[PUT ADDRESS OF 7$ IN M.M. TRAP VECTOR 


T LOOP ON 


3FOR TIGHTER 


CLEAR ERROR INDICATOR 
TH ABORT - TRAP Le 7$ 


“CAUSE R /0_ABOR 


T = TRAP. 


TO 8$ 
:RESTORE STACK POINTER AFTER ABORT 
AD SRO FOLLWOING SECOND KT ABORT 
TREAD SR2 FOLLOWING SECOND KT ABORT 
31S SRO Sh ee INFO ON FIRST ABORT? 


:BRANCH 


IF Y 
;SET ERROR INDICATOR 
DOES te STILL HOLD PC OF FIRST ABORT? 
BRANCH IF YES 


SET ERROR INDIC 


ATOR 
[WERE SRO Fa CHANGED BY A 


BRANCH | 


SECOND ABORT? 


80 
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2331 022720 104014 ERROR +14 ;ONE OF STATUS REGS. CHANGED BY SECOND ABORT 
233 FOR TIGHTER SCOPE LOOP 
233 ;REPLACE ERROR CALL WITH 
2334 :'BR 6$"' = 000726 
2335 022722 005037 001200 118: CLR $TMP1 ; CLEAR ERROR INDICATOR 
2336 O55 765 000005 RESET 3 EXECUTE A RESET, APPLYING AN ‘‘INIT’’ 
2337 0227 013737 177572 001264 MOV SRO, WASSRO SRO 
2338 022736 005737 001264 ; TST WASSRO TWAS oy CLEARED BY THE RESET? 
2339 022742 001402 BEQ 12$ [BRANCH IF YES 
2340 022744 005237 001200 INC STMP1 SRO NOT CLEARED BY A RESET 
2341 022750 013737 177576 001270 128: MOV SR2,WASSR2 ;READ SR2 
2342 022756 022737 022750 001270 CMP #12$,,WASSR2 sWAS SR2 te BY A RESET? 
2343 022764 001402 BEQ 13$ SBRANCH IF YES 
2344 022766 005237 001200 INC $TMP1 ;SR2 NOT UNLOCKED BY A RESET 
2345 022772 005737 001200 138: 1ST $TMP1 ;WERE SRO ‘, 7 BOTH *RESET’’ BY A RESET? 
2346 022776 001403 BEQ 14$ BRANCH IF 
2347 023000 104015 ERROR +15 ;SRO OR SR2. NOT *"'RESET’’ BY A RESET 
2348 FOR TIGHTER SCOPE LOOP 
2349 ;REPLACE ERROR CALL WITH 
2350 :'BR 6$'' = 000676 
2351 023002 005237 177572 14$: INC :TURN MEMORY MANAGEMENT BACK ON 
2352 023006 013737 177576 001270 15%: MOV she, WASSR2 TREAD SR2 TO SEE IF ITS TRACKING AGAIN 
2353 023014 012701 023006 MOV #15$,R1 ;PUT EXPECTED VIRTUAL PC IN R1 
2354 023020 020137 001270 CMP R1,WASSR2 :DID ae i, VIRTUAL PC AT 15$ 
2355 023024 001401 BEQ 16$ BRANCH YES 
2356 023026 104016 ERROR +16 ;SR2 NOT TRACKING CORRECTLY 
2357 FOR TIGHTER SCOPE LOOP 
2358 ;REPLACE ERROR CALL WITH 
:'BR 6$"' = 000663 

2360 023030 012737 077406 172310 168: MOV #77406,KIPDR4  ;RESET PDR4 TO 128 BLKS, R/W 
2361 023036 012737 077406 172312 MOV #77406,KIPDRS RESET PDRS TO 128 BLKS, R/W 

250 MOV AMGMERR ,MMVEC ;RESTORE ADDRESS OF NORMAL 


2362 022044 012737 015726 000 
2365 


MEMORY 
j;MANAGEMENT TRAP ROUTINE TO M.M. VECTOR 
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TEST # 10 = SUPER/USER ABORT PICKS UP KERNEL VECTOR 


2377 » SBTTL TEST # 10 = SUPER/USER ABORT PICKS UP KERNEL VECTOR 
WOTOTTTTTTITTITITT ITLL LLL LLL 


TATEST 10 SUPER/USER ABORT PICKS UP KERNEL VECTOR 
THIS TEST CHECKS TO BE SURE THAT WHEN AN ABORT ot Be 


oe 


:* IN SUPERVISOR OR USER MODE, THE TRAP -VECTOR INFORMATI 
* FETCHED 1S TAKEN FROM KERNEL SPACE. USER PAGE 0 1S MAPPED 
:* TO 12K (60000-77776) SO THAT IF USER SPACE Is USED INSTEAD 
* OF KERNEL, THE NEW PC THAT WAS LOADED AT LOC. 060004 IS USED 
:* INSTEAD OF THE NEW PC THAT SHOULD BE PICKED UP FROM LOC. 000004. 
:* THE SUPERVISOR PAGE 0 IS THEN MAPPED TO 12K, AND THE TEST 
* IS REPEATED FOR SUPERVISOR MODE. AN ODD ADDRESS ERROR IS 
;* USED TO CAUSE A TRAP TO ‘%4"’ 
** 
+ eee RRR RRR AE AE RARER ERR A REA RAERAR AREER EERE EE REED 
023052 000004 T5710: SCOPE 
2378 023054 004737 002346 1$: JSR C, TOFF : TURN OFF T=-BIT TRAPPING FOR THIS TEST 
2379 023060 012737 023066 001110 MOV ary $LPERR “SET LOOP ON ERROR POINTER TO 2$ 
2380 023066 005037 177776 2$: CLR PSW °GO TG KERNEL MODE 
2381 623072 012706 001100 MOV #KERSTK,KSP ‘SETUP KERNEL STACK PTR. 
*“* 
2383 i TEST USER MODE ABORT 
** 
5385 023076 012737 000600 177640 MOV #600 ,UIPARO ;MAP USER PAGE 0 TO 12k 
04 012737 023166 000004 MOV #4$, an “LOAD KERNEL VECTOR 4 (LOC.4) WITH 4$ 
2387 023112 012737 000340 000006 MOV #340, a86 ‘LOAD VECTOR+2 WITH NEW PSW 
2388 023120 012737 140000 177776 MOV #140000,PSw :GO TO USER MODE 
2389 023126 012706 000600 MOV HUSESTK USP ‘SETUP USER STACK PTR. 
2390 023132 012737 023152 000004 MOV #33, an ‘LOAD USER VECTOR 4 (LOC. 60004) WITH 3$ 
2391 023140 012737 000340 000006 MOV #340, a%6 “LOAD VECTOR+2 WITH NEW PSW 
2392 023146 005737 023153 TST 3$+1 “CAUSE ODD ADDR. ERROR TRAP TO ‘'4"* 
2393 “SHOULD PICK UP NEW PC=4$ FROM KERNEL 
239% ZLOC. 4, NOT PC=3$ FROM USER LOC. 4 (=60004) 
2395 023152 013701 177776 3$: MOV PSW,R1 “SAVE PSW FOR ERROR 
2396 023156 010602 MOV SP,R2 ‘SAVE VALUE OF STACK POINTER FOR ERROR 
2397 023160 005037 177776 CLR PSW ‘BE SURE BACK IN KERNEL MODE 
2398 023164 104017 ERROR +17 ‘DID NOT TRAP THRU KERNEL 8PACE 
2399 ‘FOR TIGHTER SCOPE LOOP 
2400 ;REPLACE ERROR CALL WITH 
2401 ‘BR 2$'' = 000740 
2402 023166 005037 177776 4$: CLR PSw “BE SURE BACK IN KERNEL MODE 
2403 023172 012706 001100 MOV #KERSTK,KSP “RESTORE KERNEL S. P. IN CASE IT CHANGED 
2404 023176 005037 177640 CLR UIPARO “REMAP USER PAGE 0 TO 0-4k 
5405 023202 012737 140000 177776 MOV #140000,PSW *GO TO USER MODE 
2406 023210 012706 000600 MOV #USESTK.USP SRESTORE USER STACK POINTER 
2407 023214 005037 177776 CLR PSW *GO BACK TO KERNAL MODE 
2409 * NOW TEST THE SUPERVISOR MODE ABORT 
** 
5411 023220 012737 000600 172240 MOV #600, SIPARO MAP SUPERVISOR PAGE 0 TO 12k 
3412 023226 012737 023310 000004 MOV #6$,a44 tL LOAD KERNAL VECTOR 4 WITH 6$ 
3413 023234 012737 000340 000006 MOV #340, a46 Le REO Ce teu bes 
3414 023242 012737 040000 177776 MOV #40000, PSW *GO TO SUPERVISOR MODE 
2475 023250 012706 000700 MOV #SUPSTK,SSP ‘SETUP SUPERVISOR STACK PTR 
5416 023254 012737 023274 000004 MOV #5$, an “LOAD SUPERVISOR VECTOR 4 (LOC. 60004) WITH 5$ 
3417 023262 012737 000340 000006 MOV #340, a#6 ‘LOAD VECTOR+2 WITH NEW PSW 
2418 023270 005737 023275 TST 5$+1 ‘CAUSE ODD ADDR. ERROR TRAP TO °4"’ 
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ABORT PICKS UP ‘KERNEL VECTOR 
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177776 


000004 


PSa 
oe" oKSP 


SIP 
#40000 ,PSwW 
#SUPSTK , SSP 


PSwW 
MTIMERR ,aa4 
ON 


SEQUENCE 83 


PICK UP NEW PC= 6$ FROM KERNEL 
. 4, NOT PC=5$ FROM SUPERVISOR LOC. 4 (= =60004) 
— PSwW FOR ERROR 
VE VALUE OF STACK POINTER FOR ERROR 

Ss L_MODE 


; SHOUL 


ooP 
;REPL PLACE ERROR CALL WITH 
;‘BR 2$'' = 000740 

BE SURE BACK IN KERNEL MODE 

;RESTORE KERNEL S.P. IN CASE IT CHANGED 

;REMAP SUPERVISOR PAGE 0 TO 0-4K 

7GO TO SUPERVISOR MODE 

TRESTORE SUPERVISOR STACK POINTER 

;GO BACK TO KERNEL MODE 

aie ADDR. OF NORMAL CPU TRAP HANDLER TO 4 
; TURN T=BIT TRAPPING BACK ON 


a 
sn 
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TEST # 11 = RTI IN SUPER/USER MODE DOES NOT CHANGE P 


24462 _SBITL TEST # 11 = RTI IN SUPER/USER MODE DOES NOT CHANGE PSW 
fs LUMAR AA AAA AA AERA AAA AAAEAEAAAAAAERARAEEAAAARERAA AHHH AH TARAAL ATES 
peTEST 11 RTI IN SUPER/USER MODE DOES NOT CHANGE PSW 
cs THIS TEST CHECKS TO SEE THAT WHEN AN RTI IS EXECUTED IN SUPERVISOR 
:* OR USER MODE, THE MODE OR PRIORITY BITS OF THE PSwW ARE NOT CHANGED. 
** 
eh laleledebiabalel 

~ 023354 000004 TST11: SCOPE 

244% 023356 012737 023370 001110 18: MOV #2$,$LPERR ;SET LOOP ON ERROR POINTER TO 2$ 

445 023364 012702 170000 MOV #170000, R2 SLOAD ‘PRESENT & EXPECTED'’ PSW VALUE INTO R2 

2446 023370 010237 177776 2s: MOV R2,P ‘GO TO PRESENT MODE-PRIORITY 0 

2447 023374 012746 000340 MOV A340. = (SP) ‘PUT A NEW PSW (PRIORITY=7) ON STACK 

2448 02 012746 023406 MOV #3$,-(SP) ‘PUT NEW PC ON THE STACK 

2449 023404 2 RTI ‘DO AN RTI FROM PRESENT MODE 

2450 02 013701 177776 3$: MOV w,R1 “READ NEW PSW INTO R17 

2451 023412 042701 007437 BIC #7437 ,R1 “MASK OFF COND. CODE, T-B1T, AND UNUSED BITS 

452 023416 005037 177776 CLR PSW *GO BACK TO KERNEL MODE 

2453 623422 020201 CMP R2,R1 “DID PSW STAY IN PRESENT MODE, PRIORITY=0? 

2454 023424 001401 BEQ 4$ ‘BRANCH IF 

2455 023426 104032 - ERROR +32 sPSW CHANGED BY AN RTI FROM USER 

2456 ‘FOR A TIGHTER SCOPE LOOP 

2657 ;REPLACE, ERROR CALL WITH 

2458 : : :' BR=2$"° = 000760 

2459 023430 022702 050000 4$: CMP #50000,R2 IF SUPERVISOR MODE HAS BEEN CHECKED, 

2460 023434 001403 BEQ TST12 ;GO TO NEXT TEST 

2461 023636 012702 050000 MOV #50000,R2 “ELSE.SET SUPERVISOR MODE, 

2462 023442 000752 BR 2$ ‘AND BRANCH BACK TO TEST IT. 
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| TEST # 12 = KT ERROR NOT SERVICED IF ODD ADDR. ERROR 


| 
267% .SBTTL TEST # 12 = KT ERROR NOT SERVICED IF ODD ADDR. ERROR 
i RRA RRRERERERAREEREEAEREEEEEEAEERAEEEERERAEARE 
S*TEST 12 KT ERROR NOT SERVICED IF ODD ADDR. ERROR 
| ie 
te THIS TEST CHECKS TO SEE THAT IF A CERTAIN VIRTUAL ADDRESS THAT 
ie WOULD CAUSE A MEMORY MANAGEMENT ERROR CAUSES AN ODD ADDRESS 
te ERROR FIRST, THE ODD ADDRESS ERROR IS SERVICED BUT THE MEMORY 
:* MANAGEMENT ERROR ISN'T. THIS MEANS THAT SRO AND SR2 
8 SHOULD NOT REPORT THE ERROR OR LOCK UP ITS VIRTUAL ADDRESS. 
:* A READ-ONLY VIOLATION IS USED AS THE POTENTIAL MEMORY MANAGEMENT 
** 
errr k dd ddlelalelelalabababalel 
023444 000004 TST12: SCOPE 
2475 023446 012737 000600 172350 1$: MOV #600 KIPARG :MAP KERNEL PAGE 4 10. 12-16 
2476 023454 012705 077402 MOV 77402,R5 ‘LOAD PDR4 DATA INTO 
2477 023460 010537 172310 MOV 4A KIPDR4 “MAP PAGE 4 neaeoay 
2478 023464 012737 023514 000004 MOV. #4$, a6 “SET CPU TRAP VECTOR TO ADDRESS OF 4$ 
2479 023472 012737 023512 000250 MOV #3$.a4#250 ‘SET M.M. TRAP VECTOR TO ADDRESS OF 3$ 
2480 023500 012737 023506 001110 MOV #2$.$LPERR “SET LOOP ON ERROR POINTER TO 2$ 
2481 023506 005237 060001 2$: INC 60001 ‘CAUSE ODD ADDR. ERROR & POTENTIAL R/O ABORT 
2482 023512 104020 3$: ERROR +20 + TRAPPED THRU M.M. VECTOR BU’ SHOULDN'T HAVE 
2483 ‘FOR TIGHTER SCOPE LOOP 
2484 ;REPLACE ERROR CALL WITH 
2485 :'"BR 2$"* = 000776 
2486 023514 012706 001100 4$: MOV #KERSTK,KSP * RESTORE STACK POINTER AFTER TRAPPING 
2487 023520 005037 001200 CLR $TMP1 “CLEAR ERROR INDICATOR 
2488 023524 013737 177572 001264 MOV SRO,WASSRO “READ STATUS REG. 0 
5489 023532 013737 177576 001270 S$: MOV SR2.WASSR2 ‘READ STATUS REG. 2 
2490 023540 012700 000017 MOV #17.RO “LOAD EXPECTED SRO CONTENTS INTO RO 
2491 023544 020037 001264 CMP RO, WASSRO *SRO ERROR BITS LEFT CLEAR BY TRAPPING? 
2492 023550 001402 BEQ 6$ ‘BRANCH IF YES 
2493 023552 005237 001200 INC $TMP1 :SRO ERROR Bits SET WHEN ODD ADDR. SERVICED 
249% 023556 012701 023532 63: MOV #5$,R1 ‘LOAD EXPECTED SR2 CONTENTS INTO R 
2495 023562 020137 001270 CMP R1,WASSR2 ‘WAS SR2 LEFT UNLOCKED BY sRAPPING? 
2496 023566 001402 BEQ 7$ ‘BRANCH IF YES 
2497 023570 005237 001200 INC $TMP1 :SRe LOCKED UP BY ODD ADDR. ERROR 
2498 023574 005737 001200 7$: TST $TMP1 WHERE SRO OR SR2 EFFECTED? 
2499 023600 001404 BEQ 8$ CH IF NO 
2500 023602 104021 ERROR +21 “SRO OR SR2 CHANGED BY ODD ADDR. ERROR 
2501 ‘FOR TIGHTER SCOPE LOOP é 
2502 :REPLACE ERROR CALL WITH 
2503 - 2'BR 28" = 000741 
2504 023604 042737 160000 177572 BIC #160000, SRO SCLEAR ERROR BITS THAT MAY BE SET IN SRO 
2505 023612 012737 015654 000004 8$: MOV ATIMERR,a@&4 RESTORE ADDRESS OF NORMAL CPU TRAP HANDLER 
2506 023620 012737 015726 000250 MOV AMGMERR , a#250 * RESTORE oe OF NORMAL M.M. TRAP HANDLER 
2507 023626 012737 077406 172310 MOV #77406, KIPDR4 * REMAP PAGE 4 TO READ/WRITE 
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| TEST # 13 = PC & PSw SAVED FOR KT ERROR ON ODD ADDR. 


2522 » SBTTL TEST # 13 = PC & PSW SAVED FOR KT ERROR ON ODD ADDR. 


RRA RARER EERE EERE EREEREEREREREERREE REE 


SEQUENCE 


TATEST 13 PC & PSW SAVED FOR KT ERROR ON ODD ADDR. 
** 
ie THIS TEST CHECKS THE PC AND PROCESSOR STATUS WORD SAVED WHEN 
| ie A_KT ERROR OCCURS DURING THE SECOND PUSH ON, THE. STACK DURING 
| :* SERVICING OF AN ODD ADDR. ERROR. DURING A “DOUBLE ERR 
:* SEQUENCE SUCH AS THIS, THE PSW SAVED WILL BE THE ONE PICKED UP 
3* FROM VECTOR+2 (LOC. 6 IN THIS CASE) AFTER THE ed TRAP, 
:* NOT THE PSw PRESENT BEFORE THE FIRST TRAP. SRO AND SR2 
:* SHOULD RECORD THE KT ERROR (A R/O VIOLATION BY THE USER STACK PTR.) 
-* 
ie NOTE THAT THE PREVIOUS MODE BITS <13:12> OF THE SW 
:* WILL BE SET IN THE PSW THAT IS SAVED. 
Ly RRR RRRR RRR REAR ERE EEE EER REED 
023634 15113: SCOPE 
2523 023636 737 002346 1$: JSR PC, TOFF TURN T-BIT TRAPPING OFF FOR THIS TEST 
2524 023642 012737 177646 MOV #600,UIPAR3 “MAP USER PAGE 3 TO 12-16K 
2525 023650 012737 000600 177650 MOV #600, UIPAR4 :MAP USER PAGE 4 TO 12-16K 
2526 023656 012737 077402 177606 MOV #77402,UIPDR3 MAP USER PAGE 3 READ-ONLY 
2527 02 012737 077406 177610 MOV #77406,UIPDR4 MAP USER PAGE 4 READ/WRITE 
2528 023672 012737 023746 4 MOV 4$, an [LOAD ADDRESS OF 4$ IN CPU (ODD ADDR.) VECTOR 
023700 012737 140017 000006 MOV #140017,a#6 [LOAD PSW THAT SHOULD BE PUT ON STACK IN VECTOR+2 
023706 012737 023746 250 MOV #4$,a#250 [LOAD ADDRESS OF 4$ IN M.M. TRAP VECTOR 
2531 023714 012737 340 000252 MOV #340, a#252 [LOAD A KERNEL PSW IN MMVEC+2 
2532 023722 012737 023730 001110 MOV #2$, $LPERR [SET LOOP ON ERROR POINTER TO 2$ 
2533 023730 012737 140000 177776 28: MOV #14 PSW :GO TO USER MODE 
2534 023736 012706 100002 MOV #100002 ,USP [SET USER STACK PTR. SO SECOND PUSH IS _IN PG. 3 
2535 023742 005237 100005 3$: INC 100005 SCAUSE ODD ADDRESS ERROR THAT WILL CAUSE 
2536 R/O ERROR WHEN TRY TO SAVE OLD PC 
2537 023746 016601 000002 4$: MOV 2(kSP) »R1 [PUT PSW SAVED ON KERNEL STACK INTO R17 
2538 023752 011603 MOV (KSP) ,R [PUT PC SAVED ON KERNEL STACK” INTO R3 
2539 023754 013737 177572 001264 MOV SRO, WASSRO READ THE CONTENTS OF M.M. STATUS REG. 0 
2540 023762 013737 177576 001270 MOV SR2,WASSR2 READ THE CONTENTS OF M.M. STATUS REG. 2 
2541 023770 042737 177572 BIC #160000,SRO ~“ZCLEAR THE ERROR BITS IN SRO 
2542 023776 005037 177776 CLR PSW BE SURE IN KERNEL MODE 
2543 024002 012706 001100 MOV #KERSTK ,KSP [RESTORE KERNEL STACK POINTER 
2544 024006 012737 140000 177776 MOV #140000, PSW :GO TO USER MODE 
2545 024014 012706 00 MOV #USESTK .USP RESTORE USER STACK POINTER 
2546 024020 005037 177776 CLR PSW :GO BACK TO KERNEL MODE 
2547 024024 005037 001176 CLR $TMPO ;CLEAR ERROR INDICATOR 
2548 024030 020127 170017 (MPs R1,4170017 WAS THE PSW SAVED THE ONE PICKED UP BY THE 
2549 “ODD ADDR. TRAP FROM ERRVEC+2? 
2550 ; VALUE 170017 = PSwW FROM LOC. 6 WITH 
2551 :PREVIOUS MODE BITS = USER 
2552 024034 001402 BEQ 5$ BRANCH IF YES 
2553 024036 005237 001176 INC $TMPO WRONG PSW SAVED DURING ‘DOUBLE ERROR'’ SEQUENCE 
2554 024042 020327 023746 5$: (MP RB, #3$+4 WAS THE PC AT THE TIME OF THE ODD ADDR. ERROR 
555 SAVED ON THE STACK? 
024 001402 BEQ 6$ BRANCH IF YES 
2557 024050 005237 001176 INC $TMPO ‘WRONG PC SAVED DURING TRAP SEQUENCE 
2558 024054 023727 001264 020147 68: (MP WASSRO,#20147 «DID SRO REPORT - USER, PAGE 3, R/O ABORT? 
2559 024062 001402 BEQ 7$ BRANCH IF YES 
2560 024064 005237 001176 INC $TMPO SRO DID NOT REPORT R/O ABORT 
2561 024070 023727 001270 023742 7S: (MP  —- WASSR2,, #38 DID SR2 LOCK UP VIRTUAL ADDR. OF LAST 
2562 S INSTRUCTION SUCCESSFULLY FETCHED? 
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TEST # 13 = PC & PSW SAVED FOR KT ERROR ON ODD ADDR. 

2563 024076 001402 BEQtsé8S BRANCH IF YES 

2564 024100 005237 001176 INC $TMPO :SR2 DID NOT LOCK UP ADDR. OF ODD ADDR. INST. 

2565 024104 005737 001176 8S: TST $TMPO Y ERRORS’ DURING TRAP SEQUENCE? 

2566 024110 001401 BEQts«éOS ‘BRANCH IF NO 

2567 024112 104022 ERROR +22 | THE WRONG PC OR PSW WERE SAVED 

2568 ? OR SRO Ok SR2 DID NOT REPORT R/O 7 

2569 ; [ERROR DURING ODD ADDR. - KT TRAP 

2570 E + SEQUENCE 

2571 : FOR TIGHTER SCOPE LOOP 

2572 :REPLACE ERROR CALL WITH 

2573 :BR 2$'° = 000710 

2574 024114 012737 015654 000004 98: MOV = ATIMERR, aw RESTORE ADDRESS OF NORMAL CPU TRAP HANDLER 

2575 024122 012737 000340 000006 MOV -#340,a86 - PRELOAD. ERRVEC+2 WITH KERNEL PSW 

2576 024130 012737 015726 000250 MOV -—«AMGMERR,a@#250 :RESTORE ADDRESS OF NORMAL M.M. TRAP HANDLER 

2577 024136 012737 077406 177606 MOV _—-#77406, UIPDR3 i REMAP USER PAGE 3 READ/WRITE 


2578 024144 004737 002402 JSR PC,TON TURN T=BIT TRAPPING BACK ON 


—— ee eee 
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GROUP 2 D=-SPACE TESTS 


2579 -SBTTL GROUP 2 
2589 eo beer mot aed ve 
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TEST # 14 = ENABLE D=SPACE AND SEE THAT I-SPACE IS FORCED 


2597 .SBTTL TEST # 14 = ENABLE D-SPACE AND SEE THAT I-SPACE 1S FORCED 
RRA EAREREEEEEERE ARERR ERRERAEAAEREAREREERAERERHEREEE 
;#TEST 14 ENABLE D-SPACE AND SEE THAT I-SPACE IS FORCED 
i. THIS TEST SHOWS THAT I=SPACE IS FORCED DURING INSTRUCTION FETCHES, 
:* AND ADDRESS, INDEX AND OPERAND FETCHES IF THE REGISTER FIELD IS 7. 
** 
:* ALL ERRORS FOUND IN THIS TEST ARE REPORTED, WHEN THE CPU 
* ABORTS THRU 'MMVEC'' TO SUBROUTINE "NODSPAC’'. THIS SUB- 
:* ROUTINE WILL REPORT THAT D-SPACE WAS NOT ENABLED PROPERLY. 
** 
te NOTE = WHENEVER A DSTM=3,6,7 IS SHOWN, AND THE OPERAND IS 
:* "100000", I=SPACE IS FORCED IN THE OPERAND FETCH, 
:* BUT D=SPACE WILL BE FORCED ON THE ACCESS OF THE 
:* LOCATION; CORRECT OPERATION IS CHECKED. 
°® 
FF iL-ioladatototntodabohaloteiaiaiaialatahetaiahahaleteteiaieiaiaiaieiaiaiaiaiaiaieieieieiaieiaiaiaieiaieiaiabeieieieieiniabels 
024150 000004 1ST14: SCOPE 
2598 INITIALIZE KERNAL I/D SPACE PAR'S AND PDR'S 
2599 024152 005037 177572 CLR MMRO TURN OFF MEMORY MANAGEMENT 
2600 024156 012700 077400 MOV #77400,RO SMAKE OE RNAL D=-SPACE PGS. 1,283 NON-RESIDENT 
2601 024162 010037 172310 MOV RO, KIPDRS “AND KERNAL I-SPACE PDR4 NON-RESIDENT 
2602 024166 010037 172322 MOV RO. KDPDR1 
2603 924172 010037 172324 MOV RO. KDPDR2 
2604 024176 010037 172326 MOV RO. KDPDR3 
3605 024202 012737 000600 172370 MOV #600, KDPAR :MAP KDPAR4 TO 12=>16K 
5606 024210 012737 002222 000250 MOV #NODSPAC,.MMVEC SET M.M. VECTOR TO D-SPACE SERVICE eee 
2607 024216 012737 024236 001110 MOV #10$, $LPERR *SET LOOP ON ERROR POINTER TO 10$ 
2608 024224 005237 177572 INC MMRO :TURN ON MEMORY MANAGEMENT 
5609 024230 012737 000024 172516 MOV #24 .MMR3 “ENABLE 22-BIT,KERNAL D-SPACE MAPPING 
2610 :* TEST THAT INSTRUCTION FETCHES FORCE I-SPACE 
** 
2612 024236 000400 10$: BR 4$ : BRANCH 
2613 024240 000244 68: CLZ SCLEAR ZERO BIT IN PSW. 
2614 024242 001776 BEQ 4$ “NO BRANCH 
2615 024244 000264 5$: SEZ ;SET ZERO BIT IN PSW 
2616 024246 001376 BNE 5$ CH 
2617 024250 000270 6$: SEN ‘SET NEGATIVE BIT IN PSW 
2618 024252 100376 BPL 6$ ‘NO BRANCH 
2619 :* TRY SOME SOP INSTRUCTIONS WITH SRCM=DSTM=0 
2620 :* THESE SHOULD NEVER INVOKE D~SPACE 
** 
2622 024254 005700 TST RO 
2623 024256 005200 INC RO 
4260 005300 DEC RO 
2625 024262 006000 ROR RO 
2626 024264 006100 ROL RO 
2627 024266 005037 177572 CLR MMRO F MEMORY MANAGEMENT 
sock i* TEST SOB NON-MOD WITH estima. 3° “d 7; DSTF=7 
. 
5630 024272 012737 100002 060000 MOV #100002, a#60000 :SET UP TEST LOCATION 
3631 024300 012737 024312 001110 MOV #11$,$LPE ‘SET LOOP ON ERROR POINTER TO 11$ 
024306 005237 177572 INC MMRO “TURN ON MEMORY MANAGEMENT 
2633 024312 005727 060000 11$: TST #60000 :DSTM= SOP NON-MOD 
2634 024316 005737 100000 TST a#100000 “DSTM=3 SOP NON-MOD 
2635 024322 005737 100000 TST 100000 “DSTM=6 SOP NON-MOD 
2636 024326 005777 053446 TST @100000 “DSTM=7 SOP NON-MOD 
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TEST # 14 = ENABLE D=SPACE AND SEE THAT I-SPACE IS FORCED 





2637 024332 005037 177572 CLR MRO URN OFF MEMORY MANAGEMENT 
2638 * TEST SOB MOD WITH DSTM=2. 3 6,7: DSTF=7 
** 
3640 024336 012737 024356 001110 MOV #12$ SLPERR :SET LOOP ON ERROR POINTER TO 12$ 
2641 024344 012737 100000 060002 MOV #1 #100000. a#60002 :SET UP TEST VALUES 
gue 024352 005237 177572 INC ‘TURN ON MEMORY MANAGEMENT 
2643 024356 005027 060000 12$: CLR [DSTM=2 SOP MOD 
2644 024362 005037 100000 CLR a#100000 *DSTM=3 SOP MOD 
2645 024366 005037 100000 CLR 100000 ‘DSTM=6 SOP MOD 
2646 024372 005077 053404 CLR @190002 :DSTM=? SOP MOD 
2647 024376 005037 177572 CLR MRO [TURN OFF MEMORY MANAGEMENT 
2648 ** 
2649 ie THE NEXT THREE TESTS ARE CONCERNED WITH TESTING 
see DOP AND NOT(SRCM=DSTM=0) 
*@ 
2652 :* TEST DOP DEST NON-MOD SRCM=DSTM=2,3,6,7; SRCF=DSTF=7 
"“® « 
2654 024402 012737 024422 001110 MOV #13$,$LPERR :SET LOOP ON ERROR POINTER TO 13$ 
2655 024410 012737 100000 MOV #100000,a#60002 :SET UP TEST VALUE 
2656 024416 005237 177572 INC MRO ‘TURN ON MEMORY MANAGEMENT 
2657 024422 022727 060000 13$: CMP #60000,#60000 :SRCM=2 DSTM=2 DOP 
2658 024430 023737 100000 100000 CMP a#100000,a4100000 ;SRCM=3-DSTM=3 DOP NON-MOD 
3659 024436 023737 100000 100000 CMP 100000,100000  ;SRCM=6 DSTM=6 
024444 027777 053332 053330 cme @100002 ,a100002 ;SRCM=7 DSTM=7 DOP NON-MOD 
2661 024452 005037 177572 CLR MRO OFF MEMORY MANAGEMENT 
2662 :* TEST MOV DEST AND NOT (SRCM=DSTM=0) 
2663 ;* SRCM-DSTM-2,3,6,7; SRCF=DSTF=7 
2664 3* 
2665 024456 012737 024476 001110 MOV #14$, SLPERR :SET LOOP ON ERROR POINTER TO 14$ 
2666 024464 012737 1 060002 MOV #100000,a#60002 : ;SET UP TEST VALUE 
2667 024472 005237 177572 INC MRO “TURN ON MEMORY MANAGEMENT 
2668 024476 012727 060002 14$: MOV #60002,#60002  :SRCM=2 DSTM=2 MOV 
2669 024504 012737 100000 MOV #60000.a#100000 :SRCM=2 DSTM=3 MOV 
2670 024512 012737 100000 MOV #60000.100000 :SRCM=2 DSTM=6 MOV 
3671 024520 012777 060000 053254 mov #60000.@100002 :SRCM=2 DSTM=7 MOV 
2672 024526 005037 177572 CLR MRO TURN OFF MEMORY MANAGEMENT 
2673 3* TEST DOP DEST MOD AND Not SUB 
sore 7* SRCM=DSTM=2,3,6,7; SRCF=DSTF=7 
** 
2676 024532 012737 024544 001110 MOV #15$,$LPERR :SET LOOP ON ERROR POINTER TO 15$ 
2677 024540 005237 177572 INC MRO : TURN ON MEMORY MANAGEMENT 
2678 024544 052727 060000 15$: BIS ; *SRCM=2 DSTM=2 DOP MOD 
2679 024552 052737 000000 100000 BIS #00000.a4#100000 :SRCM=2 DSTM=3 DOP MOD 
2680 024560 052737 000000 BIS *1 *SRCM=2 DSTM=6 DOP MOD 
5681 024566 052777 000000 053206 BIS #00000.@100002 :SRCM=2 DSTM=7 DOP MOD 
2682 024574 005037 177572 CLR MMR STURN OFF MEMORY MANAGEMENT 
2683 :* TEST SWAB WITH DSTM=2,3,6,7; DSTF=7 <2? 
2684 **® 
5685 024600 012737 024620 001110 MOV #16$, $LPERR SET LOOP ON ERROR POINTER. TO 16$ 
2686 024606 012737 100002 060 MOV #100002 ,a4#60000 SET UP TEST VALUES 
2687 024614 005237 177572 INC MRO : TURN ON MEMORY MANAGEMENT 
2688 024620 000327 060000 16$: SWAB #60000 “DSTM=2 SWAB 
2689 024624 000337 100002 SWAB =. @#00002 *DSTM=3 SWAB 
2690 024630 000337 100002 SWAB —s«-: 100002 “DSTM=6 SWAB 
2691 024634 000377 053140 SWAB @100000 ‘DSTM=7 SWAB 
005037 177572 MEMORY MANAGEMENT 


2692 024640 
2693 


CLR MMRO TURN OFF 
TEST ROT/SHFT WITH DSTM=2,3,6,7; DSTF=7 
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4644 012737 024664 001110 MOV #17$,$LPERR :SET LOOP ON ERROR POINTER TO 17$ 
26% 024652 012737 060002 MOV #100900,a#60002 :SET UP TEST VALUES 
97 0 1o38 005237. 1775 INC ‘TURN ON MEMORY MANAGEMENT 
98 024664 906 127 17$: ROL #60000 ‘DSTM=2 ROT/SHFT 
99 024670 006137 100000 ROL 97100000 [DSTM=3 ROT/SHFT 
2700 024674 006137 100000 ROL 100000 ZDSTM=6 ROT/SHFT 
2701 024700 006177 053076 ROL @100002 :DSTM=7 ROT/SHFT 
g70¢ 0247046 005037 177572 CLR MRO TURN OFF MEMORY MANAGEMENT 
3703 :* TEST ASH/ASHC WITH DSTM=3, 3.6.7; DSTF=7 
3® 
2705 024710 012737 026736 001110 MOV #18$,$LPERR ;SET LOOP ON ERROR POINTER TO 188 
2706 024716 012737 000001 060000 MOV #1, a#60000 “SET UP TEST VALUES 
2707 024724 012737 109000 060002 MOV #100000,a#60002 ° 
2708 024732 005237 177572 INC MARO ;TURN ON MEMORY MANAGEMENT 
2709 024736 072027 000001 18$: ASH #1,RO :DSTM=2 ASH/ASHC 
2710 024742 072037 100000 ASH a#100000,R0 ‘DSTM=3 ASH/ASHC 
2711 024746 072037 100000 ASH 100000,RO :DSTM=6 ASH/ASHC 
2712 024752 072077 053024 ASH @100002,R0 ‘DSTM=7 ASH/ASHC 
2713 624756 005037 177572 CLR MRO TURN OFF MEMORY MANAGEMENT 
sry ;* TEST MUL/DIV WITH DSTM=2.3,6,7; DSTF=7 
*® 
2716 024762 012737 024774 001110 MOV #19$,$LPERR ;SET LOOP ON ERROR POINTER TO 19$ 
2717 024770 005237 177572 INC MRO ‘TURN ON MEMORY MANAGEMENT 
2718 024774 070027 000002 19$: MUL #2,RO :DSTM=2 MUL/DIV 
2719 025000 070037 100000 MUL a#100000,R0 [DSTM=3 MUL/DIV 
2720 025004 070037 100000 MUL 100000,R0 [DSTM=6 MUL/DIV 
2721 025010 070077 052766 MUL @100002,RO “DSTM=7 MUL/DIV 
2722 025014 005037 177572 CLR MRO ‘TURN OFF MEMORY MANAGEMENT 
ss7 3* TEST JMP WITH DSTM=3,6,7: DSTF=7 
** 
2725 025020 012737 025040 001110 MOV #20$,$LPERR :SET LOOP ON ERROR POINTER TO 20$ 
2726 025026 012737 025054 060000 MOV #23$.a#60000  :SET UP TEST VALUES 
727 025034 005237 177572 INC MMRO [TURN ON MEMORY MANAGEMENT 
2728 025040 000137 025044 20$: § JMP av21$ [DSTM=3 JMP 
2729 025044 000137 025050 21$:  JMP 22$ ‘DSTM=6 JMP 
730 025050 000177 052724 22$:  JMP 4100000 :DSTM=? JMP 
2731 025054 005037 177572 23$: CLR MRO URN OFF MEMORY MANAGEMENT 
o73¢ 3* TEST SUB WITH DSTM=2,3,6- ba DSTF=7 
3* 
5734 025060 012737 025102 001110 MOV #28$, SLPERR sSET LOOP ON ERROR POINTER TO 28$ 
2735 025066 005000 CLR RO *SET UP TEST VALUES 
2736 025070 012737 100000 060002 MOV #100000 ,a#60002 
2737 025076 005237 177572 INC MMRO ; TURN ON MEMORY MANAGEMENT 
2738 025102 160027 060002 28$: SUB RO, #60002 [DSTM=2 SUB 
2739 025106 160037 100000 SUB RO.a#100000 ‘DSTM=3 SUB 
740 025112 160037 100000 SUB ‘DSTM=6 SUB 
2741 025116 160077 052660 SUB RO.a@100002 DSTM=7 SUB 
2742 025122 005037 177572 CLR MRO ‘TURN OFF MEMORY MANAGEMENT 
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CKRTBCO 11/464 MEM MGMT PRT B MACRO M1113 28-MAR-81 13: 04 PAGE 73 SEQUENCE 92 
TEST # 15 = ENABLE D=SPACE AND SEE I-SPACE IS NOT FORCED 
2753 .SBTTL TEST # 15 = ENABLE D=SPACE AND SEE I-SPACE IS NOT FORCED 
RRR REAR REE EAE EREREEAREAERERERERAEREAREAREHEEHE 
S*TEST 15 ENABLE D=SPACE AND SEE I-SPACE IS NOT FORCED 
** 
te THIS TEST SHOWS THAT I-SPACE IS NOT FORCED IF THE REGISTER FIELD 
* 1S NOT 7, BUT THE OTHER CONDITIONS ARE MET. 
** 
* ALL ERRORS FOUND IN THIS TEST ARE REPORTED WHEN THE CPU ABORTS 
t* THR EC’ TO SUBROUTINE "NODSPAC'’. THIS SUBROUTINE WILL 
te REPORT THAT D-SPACE WAS NOT ENABLED PROPERLY. 
** 
SERRE RRR RER RA A EERE AERA RRA ERE EERE EERE RARE EE 
0251 TST15: SCOPE 
2754 025130 012700 077406 MOV #77406,RO 
2755 025134 010037 172310 MOV RO,KIPDR4 :MAKE KIPDR4 R/W,4K,200 BLOCKS 
2756 025140 010037 172322 MOV RO, KDPDR1 sMAKE KDPDR1 R/W,4K,200 BLOCKS 
2757 025144 010037 172324 MOV RO. KDPDR2 “MAKE KDPDR2 R/W.4K.200 BLOCKS 
2758 025150 010037 172326 MOV RO. KDPDR3 ;MAKE KDPDR3 R/W,4K 200 BLOCKS 
2759 025154 105037 172306 CLRB _—s«KIPDR3 MAKE KIPDR3 NON-RESIDENT 
2760 * TEST SOP NON-MOD; DSTM=1,2,3,5,7 
** 
2762 025160 012700 060000 20$: MOV #60000,RO :SET UP CONSTANTS FOR TEST 
2763 025164 010037 060000 MOV RO, a4#60000 
5764 025170 012737 060002 060002 MOV #60002, a#6000- 
2765 025176 012737 4 060004 MOV #60004 .a#60004 
2766 025204 012737 MOV #60006, “3760006 
2767 025212 012737 025254 001110 MOV #1$ SLPERR ;SET LOOP ON ERROR POINTER TO 18... eae ens A 
2768 025220 012737 060000 060 MOV #60000 
2769 025226 012737 060002 060002 MOV #0002, Pye 
2770 025234 012737 060004 06000 MOV #60004 . a#60004 ; 
2771 025242 012737 060006 0600 MOV #60006 ,a#60006 
2772 025250 005237 177572 INC MMRO : TURN ON MEMORY MANAGEMENT 
2773 025254 005710 1$: TST (RO) ‘DSTM=1 SOP NON-MOD 
2774 025256 005720 TST (RO) + ‘DSTM=2 SOP NON-MOD 
2775 025260 005730 TST a(RO)+ “DSTM=3 SOP NON-MOD 
2776 025262 005750 TST a-(RO) “DSTM=5 SOP NON-MOD 
2777 025264 005770 000000 Ist a0(RO) *DSTM=7 SOP NON-MOD 
2778 025270 005037 177572 MRO : TURN OFF MEMORY MANAGEMENT 
3779 :* CEST SOP MOD; DSTM=1,2,3.5,7 
** 
2781 025274 012737 025306 001110 MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
2782 025302 005237 177572 INC mMRO ‘TURN ON MEMORY MANAGEMENT 
025306 005010 2$: CLR (RO) “DSTM=1 SOP MOD 
2784 025310 005020 CLR (RO) + ‘DSTM=2 SOP MOD 
2785 025312 005030 CLR a(RO)+ DSTM=3 SOP MOD 
2786 025314 005050 CLR a-(RO) “DSTM=5 SOP MOD 
2787 025316 005070 000000 CLR @0(RO) DSTM=7 SOP MOD 
2788 025322 005037 177572 CLR MMRO “TURN OFF MEMORY MANAGEMENT 
* TEST DOP DEST NON-MOD WITH SRCM=1,2,3,5,7 AND DSTM=1,2.3.5.7 
* ALL SOURCE MODES TO BE TESTED ARE TESTED HERE 
** 
5792 025326 012737 025370 001110 MOV #3$,S$LPERR :SET LOOP ON ERROR POINTER TO 3$ 
025334 012702 000032 MOV #32.R2 ‘SET UP ADDRESSES 60000-60064 FOR TEST 
2794 025340 012700 060000 -MOV - -#60000,R0 
5795 025344 012701 060000 MOV #60000 ,R1 
2796 025350 010021 21$: MOV RO, (R15 
2797 025352 062700 000002 ADD #2.R0 
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2798 025356 077204 S08 R2,21$ 
2799 025360 012700 060000 MOV #60000,RO 
2800 025364 005237 177572 INC MMRO ;TURN ON MEMORY MANAGEMENT 
2801 025370 021010 3$: CMP (RO), (RO) ‘SRCM=1 DSTM=1 DOP DEST NON-MOD 
2802 025372 021020 CMP (RO), (RO) + :SRCM=1 DSTM=2 DOP DEST NON-MOD 
2803 025374 021030 CMP (RO) ,a(RO)+ *SRCM=1 DSTM=3 DOP DEST NON-MOD 
2804 025376 021050 CMP (RO) ,a=(RO) *SRCM=1 DSTM=5 DOP DEST NON-MOD 
2805 025400 021070 000000 CMP (RO) ,@0(RO) :SRCM=1 DSTM=7 DOP DEST NON-MOD 
2806 025404 022010 CMP (RO) +, (RO) *SRCM=2 DSTM=1 DOP DEST NON-MOD 
2807 025406 022020 CMP (RO) +, (RO) + *SRCM=2 DSTM=2 DOP DEST NON-MOD 
2808 025410 022030 CMP (RO)+,a(RO)+  :SRCM=2 DSTM=3 DOP DEST NON-MOD 
2809 025412 022050 CMP (RO) +,a=(RO) *SRCM=2 DSTM-5 DOP DEST NON-MOD 
2810 025414 022070 000000 CMP (RO) +, a0(RO) *SRCM=2 DSTM=7 DOP DEST NON-MOD 
2811 025420 CMP a(RO)+, (RO) *SRCM=3 DSTM=1 DOP DEST NON-MOD 
2812 025422 023020 CMP a(RO)+.(RO)+  :SRCM=3 DSTM=2 DOP DEST NON-MOD 
2813 025424 CMP a(RO)+.a@(RO)+ :SRCM=3 DSTM=3 DOP DEST NON-MOD 
2814 025426 023050 CMP a(RO)+.a-(RO)  :SRCM=3 DSTM=5 DEST NON-MOD 
2815 025430 023070 000000 CMP @(RO)+.a0(RO) :SRCM=3 DSTM=7 DOP DEST NON-MOD 
2816 025434 025010 CMP a- (RO), (RO) *SRCM=5 DSTM=1 DOP DEST NON-MOD 
2817 025436 CMP a-(RO).(RO)+  :SRCM=5 DSTM=2 DOP DEST NON-MOD 
2818 025440 025030 CMP a-(RO).a(RO)+  :SRCM=5 DSTM=3 DOP DEST NON-MOD 
2819 025442 025050 CMP a-(RO).a@-(RO)  :SRCM=5 DSTM=5 DOP DEST NON-MOD 
2820 025444 025070 000000 CMP a-(RO).a0(RO)  :SRCM=5 DSTM=7 DOP DEST NON-MOD 
2821 025450 027010 000000 CMP @0(RO). (RO) *SRCM=7 DSTM=1 DOP DEST NON-MOD 
2822 025454 027020 000000 CMP a0(RO).(RO)+  :SRCM=7 DSTM=2 DOP DEST NON-MOD 
2823 025460 027030 000000 CMP a0(RO).a(RO)+  :SRCM=7 DSTM=3 DOP DEST NON-MOD 
2824 025464 027050 000000 CMP @0(RO).a-(RO) :SRCM=7 DSTM=5 DOP DEST NON-MOD 
2825 025470 027070 000000 000000 | CMP @0(RO).@0(RO)  ;SRCM=7 DSTM-? DOP DEST 
2826 025476 005037 177572 ? CLR MRO * TURN OFF MEMORY MANAGEMENT 
oe56 i* TEST DOP DEST MOD AND NOT SUB; DSTM=1,2,3,5.7 

** 
2829 025502 005000 CLR RO :SET UP CONSTANTS FOR TEST 
2830 025504 012701 060000 | MOV #60000,R1 
2831 025510 012737 025522 001110 MOV. #4$,$LPERR :SET LOOP ON ERROR POINTER TO 4$ 
2832 025516 005237 177572 INC mmrO ‘TURN ON MEMORY MANAGEMENT 
2833 025522 050011 4$: BIS RO,(R1) .-.- - :DSTM=1 DOP DEST MOD 
2834 025524 050021 BIS RO. (R1)+ ‘DSTM=2 DOP DEST MOD 
2835 025526 050031 BIS RO.a(R1)+ ‘DSTM=3 DOP DEST MOD 
2836 025530 050051 BIS RO. a@-(R1) ‘DSTM=5 DOP DEST MOD 
2837 025532 050071 000000 Bis RO.@0(R1) [DSTM=7 DOP DEST MOD 
2838 025536 005037 177572 MMRO TURN OFF MEMORY MANAGEMENT 
2859 :* er MOV DEST AND NOT (SMO AND DMO); DSTM=3,5,7 

** 
2841 025542 012701 060000 MOV #60000,R1 :SET UP CONSTANTS FOR TEST 
2842 025546 012737 060002 060000 MOV #60002 , a#60000 
2843 025554 012737 025566 001110 MOV #5$,$LPERR :SET LOOP ON ERROR POINTER TO 5$ 
2844 025562 005237 177572 INC mmRO ;TURN ON MEMORY MANAGEME , 
2845 025566 010031 5$: MOV RO,a(R1)+ “DSTM=3 MOV DEST 
2846 025570 010051 MOV RO. a-(R1) DS TMes MOV DEST 
2847 025572 010071 000000 MOV RO, a0(R1) ‘DSTM=7 MOV DEST 
2848 025576 005037 177572 CLR MRO TURN OFF MEMORY MANAGEMENT 
2849 ie TEST SWAB; DSTM=1,2,3,5. 5 

** 
2851 025602 012701 060000 MOV #60000,R1 :SET UP CONSTANTS FOR TEST 
2852 025606 012737 025620 001110 MOV #6$,$LPERR 3SET LOOP ON ERROR POINTER TO 6$ 
2853 025614 005237 177572 INC MMR STURN ON MEMORY MANAGEMENT 


2854 025620 0063+ 6$: SWAB. = (R11) :DSTM=1 SWAB 
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2855 025622 000321 SWAB «(R11 + :DSTM=2 SWAB 
4 000331 SWAB ss @(R1) + [DSTM=3 SWAB 
2857 025626 000351 - SWAB sa=(R11) *DSTM=5 SWAB 
2858 025630 000371 000000 SWAB =—s-« @0(R1) ‘DSTM=7 SWAB 
2859 025634 005037 177572 CLR MRO “TURN OFF MEMORY MANAGEMENT 
860 * TEST ROT/SHFT; DSTM=1,2,3,5,7 
** 
2862 025640 012701 060000 MOV #60000,R1 :SET UP CONSTANTS FOR TEST 
2863 025644 012702 060006 MOV #60006 ,R2 
2864 025650 010203 MOV R2,R3 
2865 025652 012737 060000 060000 MOV #60000 , a4#60000 
2866 025660 019737 060002 060002 MOV #60002 ,a#60002 
025 012737 060004 060004 MOV #60004 , a#60004 
2868 025674 012737 060006 060006 MOV #60006 , a#60006 
025 012737. 025714 001110 MOV #7$,$LPERR ;SET LOOP ON ERROR POINTER TO 7$ 
2870 025710 005237 177572 INC mRO TURN ON MEMORY MANAGEMENT 
2871 025714 006111 7$: ROL (R1) “DSTM=1 ROT/SHFT 
2872 025716 006121 ROL (R1)+ :DSTM=2 ROT/SHF T 
2873 025720 006131 ROL a(R1)+ >DSTM=3 ROT/SHFT 
2874 025722 006152 ROL a-(R2) DeTM=s ROT/SHF T 
2875 025724 006173 000000 « ROL a0(R3) :DSTM=7 ROT/SHFT 
2876 025730 005037 177572 CLR MMRO TURN OFF MEMORY MANAGEMENT 
or :* TEST MUL/DIV; DSTM=1,2,3.5,7 
**® 
2879 025734 012737 025750 001110 MOV #8$,S$LPERR :SET LOOP ON ERROR POINTER TO 8$ 
2880 025742 005003 CLR R3 ‘SET UP CONSTANT FOR TEST 
2881 025744 005237 177572 INC MRO STURN ON MEMORY MANAGEMENT 
2882 025750 070310 “Ee MUL (RO) ,R3 ‘DSTM=1 MUL/DIV 
2883 025752 070320 MUL (RO) +,R3 *DSTM=2 MUL/DIV 
884 070330 MUL a(RO)+,R3 ‘DSTM=3 MUL/DIV 
2885 025756 070350 MUL a-(RO) .R3 [DSTM=5 MUL/DIV 
2886 025760 070370 000000 MUL @0(RO).R3 *DSTM=7 MUL/DIV 
2887 025764 005037 177572 CLR MMRO “TURN OFF MEMORY MANAGEMENT 
2888 :* TEST ASH/ASHC; DSTM=1,2.3,5, 
** 
2890 025770 012737 000001 060000 MOV #1460000 ;SET UP CONSTANTS FOR THE TEST 
2891 025776 012737 060000 060002 MOV #60000, a#60002 
2892 026004 012700 060000 MOV #60000,RO 
2893 026010 012737 026022 001110 MOV #9$,$LPERR :SET LOOP ON ERROR POINTER TO 9$ 
2894 026016 005237 177572 INC mMRO ‘TURN ON MEMORY MANAGEMENT 
2895 026022 072310 9$: ASH (RO) .R3 ‘DSTM=1 ASH/ASHC 
2896 026024 072320 ASH (RO) +,R3 ‘DSTM=2 ASH/ASHC 
2897 026026 072330 ASH a(RO)+,R3 *DSTM=3 ASH/ASHC 
2898 026030 072350 ASH  a-(RO).R3 “DSTM=5 ASH/ASHC 
2899 026032 072370 000000 ASH @0(RO).R3 *DSTM=7 ASH/ASHC 
2900 026036 005037 177572 CLR MMRO ‘TURN OFF MEMORY MANAGEMENT 
2901 :* TEST JMP; DSTM=3,7 
** 
2903 026042 012737 026074 001110 MOV #10$,$LPERR :SET LOOP ON ERROR POINTER TO 10$ 
026050 012737 026076 060000 MOV #11$.a#60000 _: SET _UP CONSTANTS FOR THE TEST 
5905 026056 012737 026102 060002 MOV #12$.a#60002 
02 012701 060000 MOV #60000,R1 
2907 026070 005237 177572 INC MRO : TURN ON. MEMORY MANAGEMENT 
026074 000131 10$:  JMP a(R)+ ‘DSTM=3 J JME 
2909 026076 000171 000000 11$:  JMP a0(R1) :DSTM=7 J 
2910 026102 005037 177572 12$: CLR MMRO STURN OFF MMEMORY MANAGEMENT 
2911 * TEST JSR; DSTM=3,7 
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291 al 

318 026106 ap tete 026140 001110 MOV #13$,S$LPERR ;SET LOOP ON ERROR POINTER TO 13$ 
2914 0261 012737 026142 060000 MOV #14$,a#60000 SET UP CONSTANTS FOR THE TEST 
2915 026122 012737 026146 060002 MoV —-#15$,a#60002 

2916 026130 012701 060000 _ Mov —-#60000,R1 

2917 026134 005237 177572 —---- INC MRO ;TURN ON MEMORY MANAGEMENT 
2918 026140 004731 1353: JR PC,a(R1)+ :DSTM=3 JSR 

2919 026142 004771 000000 148: JSR PE @O(R1) =~ DSTM=7 JSR : 
2920 026146 005037 177572 15$: CLR MMRO - TURN OFF MEMORY MANAGEMENT 
2921 026152 112737 000006 172306 MOVB - #6, KIPDR3 :MAKE _KIPDR3 RESIDENT 

2922 026160 012706 001100 MOV #MKERSTK ,KSP ;RESET STACK POINTER 


_— 
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2931 


2944 026240 
2945 


2946 
2947 026244 
2948 026252 
2949 026256 
2950 026262 
2951 026266 
2952 

2953 

2954 026272 
2955 026300 
2956 026304 
2957 026310 
2958 026314 
2959 026320 
2960 026326 


2962 
2963 026332 
2964 340 


2977 026420 


105037 


012737 


172222 
026220 
000022 


040000 
177572 


177572 
000006 
172206 


026256 
177572 
060000 
060000 
177572 
026310 
060000 
177572 
060000 
060002 
177572 
026356 
000001 
000001 
177572 
060000 
060000 
177572 


026404 
177572 
060090 


060004 
177572 
000002 


—— —s 
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172222 


001110 


001110 


060002 


001110 
060000 


001110 


172516 


ENABLING OF SUPER. D=SPACE 


.SBTTL TEST # 16 = PROPER ENABLING OF SUPER. D-SPACE 


RARER EREREERAARARAEEREEEREREEEEERERAAERAAREREEE 


S*TEST 16 PROPER ENABLING OF SUPER. DSPACE 


:* 
i THIS TEST CHECKS FOR PROPER ENABLING OF THE SUPERVISOR D-SPACE. 
*& 
:* ANY ERRORS ENCOUNTERED WILL BE REPORTED THROUGH "MMVEC’ TO 
:* SUBROUTINE "NODSPAC * 
*& 
Sn =o iskoenlisiednaidaenednguanatpalbneinndebememntsnentininn 
TST16: SCOPE, 
20$:  CLRB- SDPDR1 ;MAKE SDPDR1 NON-RESIDENT 
MOV #1, $LPERR SET LOOP ON ERROR POINTER TO 1$. 
MOV = #22 ,MMR3 ENABLE 22-BIT SUPERVISOR D-SPACE 
BIS #40000, PSw ZENABLE SUPERVISOR MODE 
INC ___ MRO TURN ON MEMORY MANAGEMENT 
: THE NEXT INSTRUCTIONS SHOULD NEVER INVOKE D-SPACE 
® 
is BR 2$ 
2s TST —- RO 
INC — RO 
CLR = MMRO ;TURN OFF MEMORY MANAGEMENT 


MOVB #6,SDPDR1 
CLRB SIPDR3 
Fe TEST SOP INSTRUCTIONS 


MOV #3$,$LPERR SET LOOP ON ERROR Seine TO 3$ 
INC MMRO ; TURN ON MEMORY MANAGEMENT 


[MAKE SDPDR1 RESIDENT 
ZMAKE SIPDR3 NON-RESIDENT 


3$ TST a4#60000 [DSTM=3 DSTF=7 SOP NON-MOD 
CLR a4#60000 [DSTM=3 DSTF=7 SOP MOD 
CLR MMRO ; TURN OFF MEMORY MANAGEMENT 
ge TEST DOP INSTUCTIONS 


MOV #4$,$LPERR :SET LOOP ON ERROR POINTER TO 4$ 
MOV #60000, RO ‘SET UP CONSTANT FOR TEST 
INC MARC ‘TURN ON MEMORY MANAGEMENT 


4$ CMP a#60000, (RO) i SROM=3 DSTM=1 DOP DEST NON-MOD 
BIS #0,a(RO)+ RCM=2 DSTM=3 DOP DEST MOD 
MOV a#60002 ,a#60002 SACS DStm3 MOV DEST 
CLR MMRO TURN OFF MEMORY MANAGEMENT 

i* TEST ROT/SHFT AND ASH/ASHC INSTRUCT IONS 


:SET LOOP ON ERROR POINTER TO 5$ 
MCV #1,a460000 :SET CONSTANT FOR TEST 

MOV #1,RO 7SET UP CONSTANT FOR TEST 

INC MMRO ; TURN ON MEMORY MANAGEMENT 


MOV #5$,S$LPERR 


5$ ROL a4#60000 “DSTM=3 ROT/SHFT 
ASH 34760000, R3 *DSTM=3 ASH/ASHC 
CLR MMR : TURN OFF MEMORY MANAGEMENT 
:* TEST MUL/D!V AND SWAB INSTRUCTIONS 
** 
MOV #6%, SLPERR :SET LOOP ON ERROR POINTER TO 6$ 
INC mmr0 ‘TURN ON MEMORY MANAGEMENT 
6$ MUL 34#60000,RO *DSTM=3 MUL/DIV 
SWAB  a#60004 ‘DSTM=3 SWAB 
CLR MMRO ‘TURN OFF MEMORY MANAGEMENT 


BIC #2,MMR3 [DISABLE SUPERVISOR D-SPACE 


ee 


SEQUENCE 


Wes ree Crepe Lah sane mR OR , 
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2978 026426 112737 000006 172206 MOVB #6,S1PDR3 ;MAKE SIPDR3 RESIDENT 
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| 
} 
TEST = PROPER ENABLING OF USER D=SPACE 
2987 .SBITL TEST # 17 = PROPER ENABLING OF USER D-SPACE 
| b ERR EEE EEA REAR EEEEREEERAREREREREREERAREEH 
S*eTEST 17 PROPER ENABLING OF USER D=-SPACE 
*® 
| :* THIS TES’ CHECKS FOR PROPER ENABLING OF THE USER D-SPACE. 
7* ANY ERRORS ENCOUNTERED WILL BE REPORTED THROUGH ‘MMVEC' TO 
;* SUBROUTINE ‘NODSP 
** 
SRR RRR RRR ER RARER ERATE 
026434 000004 TST17: SCOPE 
2988 026436 105037 177622 20$: CLRB UDPDR1 ;MAKE UDPDR1 NON-RESIDENT 
2989 026442 012737 026470 001110 MOV #1$,$LPERR :SET LOOP ON ERROR POINTER TO 1$ 
2990 026450 012737 000021 172516 MOV #21,MMR3 : ENABLE 22-BIT USER D-SPACE 
2991 026456 052737 140000 177776 BIS #140000, PSW S ENABLE USER MODE 
2992 026464 005237 177572 INC MMRO :TURN ON MEMORY MANAGEMENT 
2993 :* THE NEXT INSTRUCTIONS SHOULD NEVER INVOKE D-SPACE 
2995 026470 000400 1$: AR 2$ 
2996 626472 005700 2$: TST RO 
2997 026474 005200 INC RO 
2998 026476 005037 177572 CLR MMRO TURN OFF MEMORY MANAGEMENT 
2999 026502 112737 000006 177622 MOVB #6,UDPDR1 “MAKE UDPDR1 RESIDENT 
3000 026510 105037 177606 CLRB UIPDR3 sMAKE UIPDR3 NON-RESIDENT 
a0) :* TEST SOP INSTRUCTIONS 
** 
3003 026514 012737 026526 001110 — MOV #3$,$LPERR :SET LOOP ON ERROR POINTER TO 3$ 
3004 026522 005237 177572 INC MMRO TURN ON MEMORY MANAGEMENT 
3005 026526 005737 060000 3$: LIST 2460000 *DSTM=3 DSTF=7 SOP NON-MOD 
3006 026532 005037 060000 CLR 2460000 4 hag 3 DSTF=7 SOP MOD 
3007 026536 005037 177572 CLR MMRO - TURN OFF MEMORY MANAGEMENT 
one i TEST DOP INSTUCTIONS 
3010 026542 012737 026560 001110 MOV #4$,$LPERR :SET LOOP ON ERROR POINTER TO 4$ 
3011 026550 012700 060000 MOV #60000 ,RO SET UP CONSTANT FOR TEST 
3012 026554 005237 177572 INC MMRO TURN ON MEMORY MANAGEMENT 
3013 026560 023710 060000 4$: CMP a4#60000, (RO) *SRCM=3 DSTM=1 DOP DEST NON-MOD 
3014 026564 052730 000000 BIS #0,a(RO)+ :SRCM=2 DSTM=3 DOP DEST MOD 
3015 026570 013737 060002 060002 ay a#60002 ,a#60002 ; SROM=3 DSTM=3 MOV DEST 
3016 026576 005037 177572 CLR MMRO TURN OFF MEMORY MANAGEMENT 
oie i* TEST ROT/SHFT AND ASH/ASHC INSTRUCTIONS 
3019 026602 012737 026622 001110 MOV #5$,$LPERR :SET LOOP ON ERROR POINTER TO 5$ 
3020 026610 012737 000001 060000 MOV #1,a460000 SET CONSTANT FOR TEST 
3021 026616 005237 177572 INC MMRO : TURN ON MEMORY MANAGEMENT 
3022 026622 006137 060000 5$: ROL a4#60000 *DSTM=3 ROT/SHF T 
3023 026626 072337 060000 oa a4#60000,R3 *DSTM=3 ASH/ASHC 
3024 026632 005037 177572 CLR MMRO TURN OFF MEMORY MANAGEMENT 
3063 :* TEST MUL/DIV AND SWAB INSTRUCTIONS 
** 
3027 026636 012737 026654 001110 MOV #6$,$LPERR :SET LOOP ON ERROR POINTER TO 6$ 
3028 026644 012700 000001 MOV #1,RO0 SET UP CONSTANT FOR TEST 
3029 026650 005237 177572 INC MMRO , + TURN ON MEMORY MANAGEMENT 
3030 026654 070037 060000 6$: MUL a460000 , RC *DSTM=3 MUL/DIV 
3031 026660 000337 060004 SWAB a460004 :DSTM=3 SWAB 


3032 026664 005037 177572 CLR MMRO 7 TURN OFF MEMORY MANAGEMENT 
3033 026670 042737 000001 172516 BIC #1 ,.MMR3 [DISABLE USER D-SPACE 


SEQUENCE 


98 


| 
| 


8 
ah 11/44 MEM MGMT PRT B MACRO M1113 28-MAR=81 13:04 PAGE 54 


= PROPER ENABLING OF USER D=SPACE 


3034 026676 112737 000006 177606 MOVB #6, UIPDR3 
3035 026704 005037 177776 CLR PSw 





;MAKE UIPDR3 RESIDENT 
RESET TO KERNAL SPACE 


SEQUENCE 


99 


T # 20 = TRAPPING IN 1~ SPACE KERNAL MODE 
| 3044 » SBTTL TEST # 20 = TRAPPING IN D~SPACE KERNAL MODE 


J 8 
A: orty'y 11/44 MEM MGMT PRT B MACRO M1113 28-MAR=81 13:04 PAGE 76 SEQUENCE 


ERR EERE EERE RARER AEEAEAEAEAERARARARAEAERARERERERE 


SRTEST 20 TRAPPING IN D=-SPACE KERNAL MODE 
+ 


;* THIS TEST VERIFIES THAT THE ABORT VECTOR IS TAKEN FROM 
7 ye AND NOT I-SPACE. THE I-SPACE VECTOR POINTS TO 
;* 10$ AND THE D-SPACE VECTOR POINTS TO 15$. EACH PSW IN 
ed VIRTUAL 252 IS ote toes SO THE PROGRAM CAN TELL WHICH 
;* AREA IT IS PICKED UP FROM. 

S 


’ 
° 
. 
. 
° 
, REAR REE AEERAREEREREEEERREREEERRERAEERREERHEEREE 
T 


026710 000004 120: SCOPE 

3065 026712 004737 002346 JSR PC, TOFF : TURN OF T-BIT FOR THIS TEST 
3046 026716 012737 026752 001110 20$: MOV #1$,$LPERR “SET LOOP ON “ERROR POINTER TO 1$ 
3047 026724 012737 027020 000250 MOV #10$, a#MMVEC :SET M.M. VEC. TO HOLD BAD VECTOR 
3048 026732 005037 000252 CLR aAMMVEC +2 PSw IN 252 HAS PRIORITY OF ZERO 
3049 026736 012737 027026 000350 MOV #15$, a#350 “SET D-SPACE M.M VECTOR TO 350 
3050 026744 012737 000340 000352 MOV #340. an352 “SET PSW PRIORITY TO 7 
3051 026752 012706 001000 1$: MOV #1000, KSP ‘SET UP KERNAL VECTOR 
3052 026756 005237 177572 iNC ‘TURN ON MEMORY MANAGEMENT 
3055 :NOW SET UP FOR AN py ee IN KERNAL MODE WITH D-SPACE ENABLED 
3055 026762 012737 077402 172330 MOV #77402 ,KDPDR4 :KERNAL DSPACE PAGE 4 IS READ ONLY 
3056 026770 012737 000600 172370 MOV #600, KDPAR4 MAP D-SPACE PAGE 4 TO 12k 
3057 026776 052737 000004 172516 BIS #B172,MMR3 TENABLE KERNAL D-SPACE MAPPING 
3058 027004 012737 000001 172360 MOV TLKDPARO “MAP KERNAL D PAGE 0 TO 000100 
3059 027012 012737. 177777 100000 MOV #-1,a#100000  :TRY TO WRITE TO PAGE 4 
3060 027020 013700 177776 10$: MOV PSW.RO ; SAVE PSW FOR COMPARE 
3061 027024 000402 BR 16$ BRANCH TO D-SPACE READ CODE 
3062 027026 013700 177776 15$: MOV PSW.RO ; SAVE PSW FOR COMPARE 
3063 027032 005037 172360 16$: CLR KDPARO REMAP KERNAL D PAGE 0 TO PHYSICAL 0 
3064 027036 012706 001100 MOV #KERSTK,KSP RESET STACK POINTER AFTER D-SPACE ABORT 
3065 027042 042737 000004 172516 BIC #B1T2,.MMR3 “TURN OFF KERNAL D-SPACE ENABLE 
3066 027050 013701 177572 MOV MMRO,R1 :SAVE MMRO FOR COMPARE 
3067 027054 013702 177574 MOV MMR1 .R2 *SAVE MMR1 FOR COMPARE 
3068 027060 013703 177576 MOV MMR2.R3 “SAVE MMR2 FOR COMPARE 
3069 027064 122700 CMPB ss #340.RO ‘DID YOU PICK CORRECT PSw 
3070 027070 001401 BEQ 2$ “BRANCH IF PSwW IS 340 
3071 027072 104033 ERROR +33 ‘WRONG PSW PICKED 1 IN ABORT SEQUENCE 
3072 027074 022701 020031 2$: CMP #020031,R1 ; EXPECTING READ ONLY ABORT 
3073 “KERNAL MODE DSPACE PAGE 4 
3074 027100 001401 BEQ 3$ SBRANCH IF CONDITION IS CORRECT 
3075 027102 104027 ERROR +27 ‘WRONG M.M. ABORT CONDITION 

76 027104 005037 177572 3$: CLR MMRO ZCLEAR OFF MMRO FOR EXIT OF TEST 

77 027110 012737 015726 000250 MOV #MGMERR.MMVEC :RESTORE NORMAL M.M. TRAP VECTOR 


te 027116 012737 000340 000252 MOV #340 ,MMVEC+2 SRESTORE TRAP PSW (PRIORITY=7) 


ee Oe OS™ —_—_— —_— 
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TO/FROM PREVIOUS INSTRUCTIONS TESTS 


3081 » SBTTL GROUP 3 MOVE TO/FROM PREVIOUS oe em a oe 
Ne eNeS Nee Nee NeZ Nel eNoZeNeJeNelSeNel eel e\u7e\0/. J Neh eNel Nol eNeleNeFeN 


PUTTTTTTTTITITILILI LLL LL LLL ‘ Mak eed Need bee b. 


THIS GROUP OF TESTS A. TEST ALL THE LOG ¥ ASSOCIATED WITH 


3087 THE "MFPI"’, "MTPI"’ “MFPD'’ INSTRUCTION 
OUTST TTT ITI TIT TTTTTLL GY 
3089 YN DAD NoL Nal Nol Nal Nel aNol Nal aNel Nol Nal Nel Nal Nel NeZ Ni LeNeL en 
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SEQUENCE 


EST # 21 = MOVE FROM PREVIOUS (SUPERVISOR) I-SPACE 
. SBTTL TEST # 21 = MOVE FROM PREVIOUS (SUPERVISOR) I-SPACE 


EERE EERE EEE RERERAAEREEREEAEERAEERAEEEEEREEEREEREEEE 


3104 


027124 


oO 

QE 
ooo°oo°o 
rrr ~m 
N 

— — 

= Nm 

o oO 


oo 
~N 
NY 
z 


rr 
NNN 
a 
fw 
on 


Mnronrr 
wn 
fo) oO 
- = N 
NN 
Nm 
S NM 
S 


72 
5 027232 


SIBVG 
8 
Nm 
¥ 


WWW 
Wr 
oo 
Mr 
N 
N 
yw 
> 


EAE 
& 
nN 
PS 


0 
105037 


012737 
012737 
006 


00000 
172310 


027176 
010340 


001100 


000700 


002506 
036514 
010340 

00000 


1 
027460 
002454 


100000 
002454 


001110 
002510 
002612 


:#TEST 21 MOVE FROM PREVIOUS (SUPERVISOR) I-SPACE 
ce THIS TEST USES THE "MFPI* INSTRUCTION TO ENSURE THAT THE PREVIOUS MODE 
* IS CLOCKED CORRECTLY. THERE IS A DESCRIPTION BEFORE EACH DESTINATION 
:* MODE TESTED. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE MF 
:* WHICH USES THE MFPI INSTRUCTION CODE FOLLOWING THE JSR CALL 10 EXECUTE 
:* THE TEST. *IMPORTANT® = ALL ‘NOP'S'’ FOLLOWING MFPI'S OF " 
:* 4 AND 5 ARE TO BE LEFT ALONE. THE SUBROUTINE LOADS THE TWO WORDS 
:* AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 
** 
* IF THE CORRECT MODE (SUPERVISOR) IS NOT ENABLED 4 NON-RESIDENT ASORT 
* WILL OCCUR AND TRAP TO MFPIV1, WHERE THE ERRORS ARE REPORTED. 
** 
+ RRRRRRRRRRR RE RERERR EER A ARERR RARER RAE R ERR ER EEE 
1ST21: SCOPE 
JSR PC APRINIT INIT ALL PAR/PDR'S 
MOV #1 .MMRO ON MEMORY MANAGEMENT 
1$: MOV #600 ,KIPARG cmp KIPAR4 TO 12K 
MOV #600. SIPARG “MAP SIPAR4 TO 12K 
MOV m3e3ie RO “LOAD DATA PATTERN INTO RO 
MOV 0.a"1 100000 ‘LOAD DATA PATTERN INTO PHY 60000 
CLRB RIPDRG [MAKE KERNEL I-SPACE PAGE H NON-RESIDENT 
:THE FOLLOWING WILL TEST DSTM=0 MFPI 
MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
2$: MOV #010840, PSW “MAKE PREVIOUS MODE SUPERVISOR 
MFPI SSP ‘PUT SUPERVISOR STACK POINTER ON KERNEL STACK 
CMP WKERSTK,KSP “WAS SOMETHING PUSHED ON STACK AT 6$ 
BEQ 3$ “BRANCH IF NOTHING WAS PUSHED 
MOV (KSP)+,RO [POP KERNEL STACK INTO RO 
MOV #SUPSTK,R1 SEXPECTING TO GET 0 AS 
CMP RO,R1 ‘DID YOU GET THE RIGHT SINTER? 
BEQ 4$ BRANCH IF Y 


PUSHED ON STACK 
000764 


ERROR +23 WRONG THING WAS PU 
FOR TIGHTER seer | LOOP, REPLACE 'BEQ 4$'' WITH ‘BR 2$"' = 


3$: ERROR +25 NOTHING 

FOR TIGHTER SCOPE LOOP, REPLACE. NBEQ 3$°* ABOVE WITH 
; THE FOLLOWING WILL ig i DSTM=1 MFPI. 
4$: MOV west $l 


TST (SP) + 
; THE FOLLOWING WILL TEST DSTM=2 MFPI. 
MOV #100000 ,R2 


ena al TO NEXT TRY 
PUSHED ON STACK 


"BR 2$"* = 000771 


PERR ;SET LOOP ON ERROR POINTER TO MFPILP IN SUBROUTINE 


MOV #36514 RO RELOAD DATA PATTERN IN RO 

MOV wo103e6. MFPIPS :MAKE PREVIOUS MODE SUPERVISOR IN SUBROUTINE 

MOV #1 OAD VIRTUAL ADDRESS INTO R2 

MOV #MFPIV1 .MFPIVC : LOAD ADDRESS OF THIS TEST'S TRAP oe TO MFPIVC 


JSR PC ,MFPITS 


MFP] (R2) HERE - READ FROM PHYSICAL 60000 

NOP — NOT 6.0R 7 = NEEDED FOR SUBROUTINE LOAD 

ERROR +23 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
“POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


;LOAD VIRTUAL ADDRESS INTO R2 


JSR PC,MFPITS *G0 DO TEST USING MFPI INSTRUCTION FOUND 

MFP] (R2)+ ; <HERE - READ FROM PHYSICAL 60000 

NOP E NOT 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
ERROR +23 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 


102 








CKKTBCO_ 11/44 MEM MGMT PRT B 
TEST # 21 = MOVE FROM PREVIOUS 


3145 027320 
46 


Ww Wu wiv 
SSRBNSALANS 
oO ooo 

N 
~N 
i'w 
Ww 
™~m 


027356 
364 
61 Oren 


WWANWW NANA 
2 SS 


3180 027456 


012702 
7 


012702 
004737 


002454 
100000 


100002 
002454 


100000 
001204 
002454 


002454 
100000 
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SEQUENCE 


(SUPERVISOR) I-SPACE 


001202 


001202 


172310 


TST (SP) + ics; EXCESS RETURN OFF STACK = LOOPING NOT DONE 
;THE FOLLOWING ET eee 


JSR "GO. DO TEST USING MFPI INSTRUCTION FOUND 
MEP! j *<HERE = READ FROM PHYSICAL 60000 
ERROR +23, “RETURN IS HERE FOR ERROR = WRONG DATA was FETCHED 
TST ( ‘POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
: THE FOLLOWING wii, TEST DSTM=4 MFP 
#1 VIRTUAL ADDRESS INTO R2 


; LOAD 

760 DO TEST USING 1% INSTRUCTION FOUND 

7<HERE = READ FROM PHYSICAL 60000 

;MODE NOT 3, 6 OS mks nies bath ae LOAD 

ERROR 4 RETURN IS HERE FOR ERROR ~ WRONG DATA WAS FETCHED 
TST (SP) :POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 

3; THE FOLLOWING WILL TEST DSTM=5 MFPI. 
MOV #100000,$TMP2 ;LOAD TEST LOC. VIRT. ADDR INTO LOC. STMP2 
MOV #<$TMP2+2>,R2 LOAD ADDR. OF STMP2+2 INTO R2 

JSR PC MFPITS 3GO DO TEST USING MFPI INSTRUCTION FOUND 


ISR PC MFPITS 
~(R2) 


MFP I a@-(R2) i CHERE = - READ FROM PHYSICAL 60000 

NOP D ROT Reds Me Be tn gh 2 

ERROR +23 RETURN. Is HERE FOR E - WRONG DATA WAS FETCHED 
[POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


Pl. 
MAKE REGISTER 2 A ZERO 


2 
JSR PC ,.MFPITS *GO DO TEST USING MFPI INSTRUCTION FOUND 
MFP] 100000 (R2 *<HERE - READ FROM PHYSICAL 60000 
ERROR +23 SRETURN IS HERE FOR ERROR ~ WRONG DATA WAS FETCHED 
T “POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


MFP 

;LOAD TEST LOC. V.A. 4 —— 

LOAD ADDRESS OF STMP2 INTO R2 

:GO DO TEST USING MFPI INSTRUCTION FOUND 


MFPI ;USE $TMP2 TO FETCH VIRTUAL ADDRESS OF 60000 
ERROR +23 ;RETURN IS HERE FOR ERROR ~ WRONG DATA WAS FETCHED 
TST (SP) + [POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
MOVB #6, KIPDR4 ;MAKE KIPDR4 RESIDENT 

TST22 7 BRANCH TO NEXT TEST 


103 
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MM TRAP CATCHER FOR ABOVE TEST 


182 gett MM TRAP CATCHER FOR ABOVE T 
183 027460 012637 001260 MFPIV1: (KSP)+,TRAPPC  ;SAVE PC & g3 "OF TRAP 

184 027464 012637 001 26¢ mov (KSP) +, TRAPPS 

185 027470 013737 177572 001264 MOV SRO, WASSRO sSAVE SRO FOR ERROR TYPEOUT 

186 027476 013737 177576 001270 MOV SR2.WASSR2 SSAVE SR2 FOR ERROR TYPEOUT 

187 027504 042737 160000 177572 BIC #160000, SRO : CLEAR ERROR BITS | w SRO AND LEAVE 

188 027512 104026 ERROR 136 TRIED TO READ NON-RESIDENT PAGE 

189 FOR TIGHTER SCOPE LOOP, REPLACE’ 1ST mov INSTRUCTION WITH AN ‘RTI’ = 000002 
190 027514 013746 001262 TRAPPS,-(KSP) | ;PUT PC & PS OF TRAP ON STACK 

19 37520 013746 001260 nov TRAPPC .=(KSP) 


10 
92 027524 000002 RTI 
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SEQUENCE 


# 22 = MOVE FROM PREVIOUS (USER) I-SPACE 


3207 


2 2 
3224 027624 
3225 
3226 027626 
3227 027630 
3228 
3229 
3230 027632 
3231 027640 


3232 027646 
3233 027652 
3234 660 


38 027674 
oH 027676 
3241 027700 


32 1 
3246 027716 
3247 


036514 
000600 
100000 
172310 
027560 001110 


030340 177776 
030056 000250 


177650 
010037 
105037 
012737 


~-012737~ 015726 000250 
022706 001076 


000600 


002506 001110 
030340 002510 


036514 
030056 002612 
100000 
002454 


012702 100000 
37 002454 


» SBTTL TEST # 22 = MOVE FROM PREVIOUS (USER) I-SPACE 


REAR AEREERARREREREAAERRERERAEERREEREEERERERERE 


T*TEST 22 MOVE FROM PREVIOUS (USER) I-SPACE 
-* 
:* THIS TEST USES THE 'MFPI' INSTRUCTION TO ENSURE THAT THE PREVIOUS MODE 
:* IS CLOCKED CORRECTLY. THERE IS A DESCRIPTION BEFORE EACH DESTINATION 
:* MODE TESTED. THE TEST ITSELF IS CARRIED OUT IN SUBROUTI 
:* WHICH USES THE MFP] INSTRUCTION CODE, FOLLOWING THE JSR CALL TO EXECUTE 
ie TEST. *IMPORTANT® = ALL ‘NOP'S'* FOLLOWING MFPI'S .» 
:* A AND & ARE TO BE LEFT ALONE. THE SUBROUTINE LOADS THE TWO WORDS 
ie AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 
-* 
:* IF THE CORRECT MODE (USER) IS NOT ENABLED A NON-RESIDENT ABORT WILL 
:* OCCUR AND TRAP TO MFPIV2, WHERE THE ERRORS ARE REPORTED. 
** 
SERRE RRR RRR RRR EERE REAR R AERA REE EERE EERE ERED 
T$122: SCOPE 
1$: MOV #36514 RO ;LOAD DATA PATTERN INTO RO 
MOV #600, UIPAR4 :MAP_UIPAR4 TO 12k 
MOV RO. 24100000 ;LOAD DATA PATTERN INTO PHY 60000 
CLRB _—KIPDR4 MAKE KERNEL I-SPACE PAGE 4 NON-RESIDENT 
:THE FOLLOWING WILL TEST DSTM=0 MFPI 
MOV #2$,SLPERR SET LOOP ON ERROR POINTER TO 2$ 
2$: Mov #030340, PSW MAKE PREVIOUS MODE USER 
MOV wn PVE. MMVEC  :LOAD ADDRESS OF THIS TEST'’S TRAP CATCHER TO MMVEC 
~—-- MEPL. USP. “ ie USER STACK POINTER ON KERNEL STACK. .... ~ 
MMvEC CTOR TO NORMAL ROUTINE 
CMP ORKERSTKO-KSP —:WAS SOME THING PUSHED ON STACK BY THE MFPI? 
BNE 3$ “BRANCH TO ERROR IF POINTER IS WRONG 
MOV (KSP) +,RO :POP KERNEL STACK INTO RO 
MOV #USESTK,R1 TEXPECTING TO GET 600 AS USP 
CMP = ROR :D1D YOU GET THE RIGHT *POINTER? 
BEQ 4$ ;BRANCH IF YOU D 


ID 
ERROR +23 WRONG THING WAS PUSHED _ON STACK 

FOR TIGHTER SCOPE LOOP, REPLACE 'BEQ 4$'' WITH ‘BR 2$'' = 000764 
BR 4$ ote ay TO NEXT TRY 

3$: ERROR +25 THING PUSHED ON " STACK 

FOR TIGHTER SCOPE LOOP, REPLACE ‘BNE 3$'' ABOVE WITH ‘BR 2$"' = 

; THE teow “710 WILL TEST DSTM=1 MFPI. 


000771 . 


4$: MOV P.$LPERR ;SET LOOP ON ERROR POINTER TO MFPILP IN SUBROUTINE 
MOV #030340.MFPIPS :MAKE PREVIOUS MODE USER IN SUBROUTINE LOCATION 
MOV #36514 “RELOAD DATA PATTERN IN RO 
MOV #MFPIV2 ,MFPIVC ‘ ;LOAD ADDRESS OF THIS TEST'S TRAP CATCHER TO MFPIVC 
MOV #100000. “LOAD VIRTUAL ADDRESS INTO R2 
JSR PC ,MFPITS *60 DO TEST USING MFPI INSTRUCTION FOUND 
MFP] (R2) S<HERE - READ FROM PHYSICAL 60000 
NOP [MOD 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
ERROR +23 *RETURN 1S HERE OF oR ERROR - 


WRONG DATA — FETCHED 
TST (SP) + ;POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 

7 THE FOLLOWING WILL TEST DSTM=2 wP as 
MOV #100000 ,R2 VIRTUAL ADDRESS INTO R2 


JSR PC MFPITS ‘60 DO TEST USING MFPI INSTRUCTION FOUND 


MFP] (R2)+ ‘<HERE - READ FROM PHYSICAL 60000 
NOP ‘MODE NOT 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
ERROR +23 ;RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 


TST (SP) + POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
7 THE FOLLOWING WILL TEST DSTM=3 mePT. 


105 





48 Oer7e0 
49 027724 
0 0277 
1 027732 


Muni & 
Wr 


3280 0 
3281 030054 


012702 
7 


012702 
004737 
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T # 22 = MOVE FROM PREVIOUS 


002454 
100000 


100002 
002454 


100000 
001204 
002454 


002454 
100000 
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MACRO M1113 28-MAR=81 13:04 PAGE 80-1 
(USER) I-SPACE 


001202 


001202 


172310 


3; THE 


2 THE 


; THE 


JSR PC, ,MFPITS 
MFPI  a#100000 
ERROR 23 
TST (SP) 
FOLLOWING WILL TEST DSTM=4 
MOV #100002 ,R2 
JSR PC, MFPITS 
MFP I -(R2) 
NOP 
ERROR +23 
TST (SP) + F 
FOLLOWING WILL TEST DSTM=5 MFPI. 
MOV #100000, $TMP2 
MOV M<$TMP2+2>,R2 
JSR PC.MFPITS 
MFPI a-(R2) 
NOP 
ERROR +23 
TST (SP) + 
FOLLOWING WILL TEST DSTM=6 
CLR - 
JSR C,MFPITS 
MFP I 60000(R2) 
ERROR +23 
TST (SP) + 
FOLLOWING WILL TEST DSTM=7 
MOV #100000 , $TMP2 
MOV ASTMP2,R2 
JSR PC .MFPITS 
MFP I a0(R2) 
ERROR +23 
TST (SP) + 
MOVB #6,KIPDR4 
BR TST23 


SE QUe NCE 


3GO DO TEST USING MFPI INSTRUCTION FOUND 

7<HERE = READ g's PHYSICAL 60000 

TRETURN IS EHRE FOR ERROR = WRONG DATA a FETCHED 
icy. POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
;LOAD VIRTUAL ADDRESS INTO R2 

3GO0 DO TEST USING MFPI INSTRUCTION FOUND 

7<HERE = READ FROM_PHYSICAL 60000 

:MODE NOT 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
[RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
:POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


;LOAD TEST LOC. VIRT. ADDR INTO LOC. STMP2 
;LOAD ADDR. OF $TMP2+2 INTO R2 

3;GO DO TEST USING MFPI INSTRUCTION FOUND 

;<HERE - READ FROM PHYSICAL 60000 

:MODE NOT 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
[RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
;POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


I. 
MAKE REGISTER 2 A ZERO 

760 DO TEST USING MFPI INSTRUCTION FOUND 

; <HERE - READ FROM PHYSICAL 60000 

RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
;LOAD TEST LOC. V.A. INTO $STMP2 

;LOAD ADDRESS OF $TMP2 INTO R2 

+ G0 DO TEST USING MFPI_ INSTRUCTION FOUND 

;USE $TMP2 TO ahh VIRTUAL ADDRESS OF 60000 
[RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
;POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
;MAKE KIPDR4 RESIDENT 

7 BRANCH TO NEXT TEST 


3Fy: 
vu 
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oe TRAP CATCHER FOR PREVIOUS TEST 





3283 .SBTTL MM TRAP CATCHER FOR gig a TEST 
3284 030056 012637 001260 MFPIV2: MOV (KSP)+,TRAPPC  ;SAVE PC & PS OF TRAP 
3285 030062 012637 001262 MOV (KSP) +, TRAPPS 
030066 013737 177572 001264 MOV SRO,WASSRO SAVE SRO FOR ERROR TYPEOUT 
3287 030074 013737 177576 001270 MOV SR2 ,WASSR2 TSAVE SR2 FOR ERROR TYPEOUT 
3288 030102 042737 160000 177572 BIC #160000, SRO [CLEAR ERROR BITS IN SRO AND LEAVE 
3289 030110 104026 ERROR +26 ; TRIED TO READ NON-RESIDENT PAGE 
3290 FOR TIGHTER SCOPE LOOP, REPLACE’ 1ST MOV INSTRUCTION WITH AN 'RTI'’ = 000002 
3291 030112 013746 001262 MOV TRAPPS,=(KSP)  ;PUT PC & PS OF TRAP ON STACK 
3292 030116 013746 001260 MOV TRAPPC ,=(KSP) 


3293 030122 000002 RT] 
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T # 23 = MOVE TO PREVIOUS (SUPERVISOR) I-SPACE 


3308 .SBTTL TEST # 23 = MOVE TO PREVIOUS (SUPERVISOR) I-SPACE 
REE ERA EEEERERREEEERERREEEEREEH 
SSTEST 23 MOVE TO PREVIOUS (SUPERVISOR) I-SPACE 
** 
:* THIS TEST USES THE "MTPI' INSTRUCTION TO ENSURE THAT THE PREVIOUS MODE 
:* IS CLOCKED CORRECTLY. THERE IS A DESCRIPTION BEFORE EACH DESTINATION 
: ;* MODE TESTED. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE MFPITS 
* WHICH USES THE MTPI INSTRUCTION CODE FOLLOWING THE JSR CALL TO EXECUTE 
te THE TEST. *IMPORTANT* = ALL ‘'NOP'S'’ FOLLOWING MTPL'S OF MODES 1,2, 
:* 4 AND & ARE TO BE LEFT ALONE. THE SUBROUTINE LOADS THE TWO WORDS 
te AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 
** 
ie IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT WILL OCCUR AND 
te TRAP TO MIPIV1, WHERE THE ERRORS ARE REPORTED. 
* 
LE RRR RR ERR ARERR ARERR RRR ERE EERE EERE EH 
030124 000004 15123: SCOPE 
3309 030126 012737 077406 172210 1$: MOV #77406,SIPDR4 ;SUPERVISOR I-SPACE PAGE 4 READ/WRITE 
3310 -THE FOLLOWING WILL TEST DSTM=0 MTPI 
3311 030134 012737 010340 177776 28: MOV #010340,PSW sMAKE PREVIOUS MODE SUPERVISOR 
3312 030142 012746 007777 MOV #7777 ,~(KSP) “PUSH DATA ON KERNEL STA 
3313 030146 012737 030506 000250 MOV WMTPIV1.MMVEC :LOAD ADDRESS OF THIS Test? S TRAP CATCHER TO MMVEC 
3314 030154 006606 MTP] SSP “LOAD SUPERVISOR STACK POINTER 
3315 030156 006506 MFP] SSP ‘READ SUPERVISOR STACK POINTER 
3316 030160 012737 015726 000250 MOV WMGMERR,MMVEC :SET M.M. VECTOR TO NORMAL ROUT INE 
3317 030166 012601 MOV (KSP)+,R1 ‘POP KERNEL STACK INTO R 
3318 030170 022701 007777 CMP #7777,R1 “WAS SUPERVISOR STACK POINTER CHANGED 
3319 030174 001401 BEQ 3$ BRANCH IF IT WAS 
3320 030176 104025 ERROR +25 ERVISOR STACK POINTER NOT CHANGED 
3321 -FOR TIGHTER SCOPE LOOP, REPLACE BED 3$'' WITH ‘BR 2$'' = 000765 
3322 030200 012737 010340 177776 38: MOV #010340.PSw :MAKE PREVIOUS MODE SUPERVISOR 
3323 030206 012746 000700 MOV WSUPSTK.-(KSP) GET READY TO RESTORE SUPERVISOR S. POIN 
3324 030212 012737 030506 000250 MOV #MTPIV1.MMVEC :LOAD ADDRESS OF THIS TEST'S TRAP CATCHER TO MMVEC 
3395 030220 006606 MIP] SSP ‘RESTORE SUPERVISOR STACK POINTER 
3326 030222 012737 015726 000250 MOV WMGMERR,MMVEC :SET M.M. VECTOR TO NORMAL ROUTINE 
3327 030230 4$: sTHIS WILL TEST DSTM = 1 MTPI. 
3328 030230 012737 002644 001110 MOV #MTPILP,$LPERR ;SET LOOP ON ERROR POINTER TO MTPILP IN SUBROUTINE 
3329 030236 012737 010340 002646 MOV #010340.MTPIPM =MAKE PREVIOUS MODE SUPER IN LOCATION IN SUBROUTINE 
3330 030244 012702 100000 MOV #100000.R2 ‘LOAD VIRTUAL ADDRESS INTO R2 
3331 030250 012700 125252 MOV #125252 .RO ‘LOAD TEST DATA INTO RO 
3332 030254 004737 002616 - JSR PC MTPITS “GO DO THE TEST USING THE MTPI INSTRUCTION FOUND 
3333 030260 006612 MTP} (R2) *<HERE = LOAD TEST DATA INTO PHYSICAL 60000 
3334 030262 000240 NOP SNOT MODE 3 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
3335 030264 000000 .WORD 0 ‘ADD 0 TO R2 AFTER | MTP] INSTRUCTION EXECUTE 
3336 030266 104024 “ERROR +24 “RETURN IS HERE FOR ERROR - INCORRECT STORE 
3337 030270 005726 TST (SP) “POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
3338 ;THE FOLLOWING WILL TEST DSTM=2 MIPI. 
3339 030272 012700 125252 MOV #125252,RO :LOAD TEST DATA INTO RO 
3340 030276 012702 100000 MOV #100000,R2 ‘LOAD VIRTUAL ADDRESS INTO R2 
3341 030302 004737 002616 JSR PC .MTPITS *GO DO THE TEST USING THE MTPI INSTRUCTION FOUND 
3342 030306 006622 MTP] (R2)+ i <HERE - =etgAb TEST DATA INTO PHYSICAL 60000 
3343 030310 000240 - NOP ‘NOT MODE 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
3344 030312 177776 .WORD =2 SADD Fo R2 AFTER MTPI INSTRUCTION EXECUTE 
3345 030314 104024 ERROR +24 ‘RETURN IS HERE FOR ERROR - INCORRECT STORE 
3346 030316 005726 TST (SP) + “POP EXCESS RETURN OFF STACK ~ LOOPING NOT DONE 


3347 sTHIS WILL TEST DSTM = 3 MTPI. 
- 3348 030320 012700 052525 MOV #52525,R0 ;LOAD TEST DATA INTO RO 
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3349 030324 


3 
3364 030370 


| 

| 

a 3366 030400 
3367 030406 
3368 0304 


3200 030546 
3401 030552 


004737 
006637 


000000 
104024 
005726 


012 
012702 
00473 


013746 
013746 
000002 


002616 
100000 


125252 
100002 
002616 


052525 
001204 


100000 
002616 


052525 
002616 
100000 


125252 
100000 
001202 
002616 
000000 


001202 


001202 


177572 


8 MACRO M1113. 
TEST # 23 = MOVE TO PREVIOUS (SUPERVISOR) I~SPACE 


TST 
;THIS WILL TEST 
MOV 


MIPIV1: 


ERROR 24 RIE PAGE 4 
3FOR agg SCOPE LOOP, REPLACE 181 MOV_INSTRUCTIUN WITH ts RTI" 


JSR PC .MIPITS 
MIP] a47100000 
.WORD 0 
ERROR +26 
(SP) + 
DSTM = 4 MIPI. 
#125252, RO 
MOV #100002 ,R2 
JSR PC. MTPITS 
MTP] -(22) 
NOP 
.WORD 0 
ERROR = 
:THE FOLLOWING WILL TEST DSTM=5 
MOV #52525,R0 
MOV eeETNPD +2>, R2 
MOV #100000, $TMP2 
JSR PC .MTPITS 
MTP] a~(R2) 
NOP 
. WORD 100000-$TMP2 
ERROR +24 
T (SP) + 
DSIM = 6 MIPI. 
MOV #52525,RO 
CLR R 
JSR PC .MIPITS 
MTPI 100000(R2) 
. WORD 100000 
ERROR +24 
TST (SP) + 
sTHE FOLLOWING WILL TEST DSTM=7 
MOV #125252.R 
MOV #100000, $TMP2 
MOV #STMP2 ,R2 
JSR PC .MIPITS 
MTP] @0(R2) 
. WORD 100000-$TMP2 
ERROR +24 
TST (SP) + 
BR TST24 
MOV (KSP) +, TRAPPC 
MOV (KSP) +. TRAPPS 
MOV SRO, WASSRO 
MOV SR2,WASSR2 
BIC #160000, SRO 
+ 
TRAPPS ,-(KSP) 
Mov TRAPPC , =(KSP) 


*. 
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SEQUENCE 109 


:GO DO THE TEST USING THE MTPI INSTRUCTION FOUND 
[<HERE = LOAD TEST DATA INTO PHYSICAL 60000 
[ADD 0 TO R2 AFTER MTPI INSTRUCTION EXECUTE 
TRETURN IS HERE FOR ERROR = INCORRECT oy 
[POP EXCESS RETURN OFF STACK = LOOPING NO 


:LOAD TEST DATA INTO RO 

“LOAD VIRTUAL ADDRESS INTO R2 

‘GO DO THE TEST USING THE MTPI INSTRUCTION FOUND 
S<HERE = LOAD TEST DATA INTO PHYSICAL 60000 

‘NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
:ADD 0 TO R> AFTER MTP] INSTRUCTION EXECUTE 

RETURN IS HERE FOR ERROR = INCORRECT STORE 

POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
:LOAD TEST DATA INTO RO . 
“LOAD ADDR. OF LOC. $TMP2+2 INTO R2 1 Ge 
“LOAD VIRT. ADDR. OF TEST tor, TONTO” STMP2 

GO DO THE TEST USING THE MTPI INSTRUCTION FOUND 
:<HERE = LOAD TEST DATA INTO PHYSICAL 60000 

‘NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
ADD 100000 TMP? TO R2 AFTER MTPI INSTRUCTION EXECUTE 
“RETURN IS HERE FOR ERROR - INCORRECT STORE 

“POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


;LOAD TEST DATA gis RO 
SMAKE REGISTER 2 ZER 
3;GO DO THE TEST USING THE MTPI ite asta F OUND 
:<HERE - LOAD TEST DATA INTO PHYSICAL 60000 
ZADD 100000 TO R2 AFTER MTPI INSTRUCT ION EXECUTE 
RETURN IS HERE FOR ERROR - INCORRECT — 
POP EXCESS RETURN OFF STACK = LOOPING NO 
;LOAD TEST DATA INTO RO 
;LOAD VIRT. ADDR. OF gd Ms = bee INTO LOCATION $TMP2 
;LOAD ADDRESS OF $TMP2 I R2 
7GO DO THE TEST USING THe MIP] INSTRUCTION FOUND 
:<HERE - LOAD TEST DATA INTO PHYSICAL 60000 
[ADD 100000-$TMP2 TO R2 AFTER MTPI INSTRUCTION EXECUTE 
RETURN IS HERE FOR ERROR - INCORRECT STORE 
POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
> ;BRANCH TO NEXT TEST 


;SAVE PC & PS OF TRAP 


SAVE SRO FOR ERROR TYPEOUT 
[SAVE SR2 FOR ERROR TYPEOUT 
etc ERROR BITS IN = 

D TO LOAD A_N.R. 


T DONE 


= 000002 
;PUT PC & PS OF TRAP ON STA 


;RETURN TO TEST 


po OS ee 
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TEST # 24 = MOVE TO PREVIOUS (USER) I-SPACE 


| CKKTBCO 11/44 MEM MGMT PRT B 
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3402 


000004 
012737 


564 012737 


-—OO0ON 


3 IIIT TT TIS SST TTT TSS 
WRU Saranran=oSsVRaRra 

ooo0°o So oO 
SESSSSEe SAS 
SRSERRSN FRE 


REKEEEFS ES 
TS SSVRARUS 


¥ 
& 
Ne 
° 
Ww 
S 
oO 
ae 


012737 


006606 
012737 
012737 


077406 
000600 


030340 
007777 
031152 
015726 


007777 


030340 
000600 
031152 


015726 


002644 
030340 
031152 
100000 
125252 
002616 


177610 
177650 


177776 
000250 


000250 


177776 


SEQUENCE 


_SBTTL TEST # 24 = MOVE TO PREVIOUS (USER) I-SPACE 
. REE EREAAAAAEERERAEEERERERRERAARARERREREREEAAEEREREREREEARARERE 
;*TEST 24 MOVE TO PREVIOUS (USER) I-SPACE 
+ THIS TEST USES TH&e*MIPI' INSTRUCTION TO ENSURE THAT THE PREVIOUS MODE 
* 1S CLOCKED CORRECTLY. THERE IS A DESCRIPTION BEFORE EACH DESTINATION 
;* MODE TESTED. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE MFPITS, 
:* WHICH USES THE MTPI INSTRUCTION CODE FOLLOWING THE JSR CALL TO EXECUTE 
te THE TEST. *IMPORTANT® = ALL 'NOP'S'’ FOLLOWING MTPI'S OF MODES 1,2, 
8 4 AND 5 ARE TO BE LEFT ALONE. THE SUBROUTINE LOADS THE TWO WORDS 
ie AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 
** 
ie IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT WILL OCCUR AND 
te TRAP TO MIPIV1, WHERE THE ERRORS ARE REPORTED. 
**® 
+ RARER RARER AER ER AERA E ERE RERAEAEARAAAR EERE E 
TST24: SCOPE 
1$: MOV #77406,UIPDR4 ;USER I-SPACE PAGE 4 READ/WRITE 
MOV #600, UIPAR “MAP USER I PAGE 4 TO 12k 
-THE FOLLOWING WILL TEST DSTM=0 MTPI 
2$: MOV #030340,PSW :MAKE PREVIOUS MODE USER 
MOV #7777 ,=(KSP) “PUSH DATA ON KERNEL STACK 
MOV WMTPIV2.MMVEC :SET M.M. VECTOR TO 20$ 
MTP] USP ‘LOAD USER STACK POINTER 
MFP] — USP [READ USER STACK SPOINTER 
MOV #MGMERR,MMVEC :RESTORE MM VECTOR TO NORMAL ROUTINE 
MOV (KSP) +,Ri “POP KERNEL STACK INTO R1 
CMP #7777, R1 “WAS USER STACK POINTER CHANGED 
BEQ 3$ “BRANCH IF IT WAS 
ERROR +25 ZUSER STACK POINTER NOT CHANGED 
-FOR TIGHTER SCOPE LCOP, REPLACE ‘BEQ 35 "BR 2$'' = 000765 
3$: MOV #030340,PSW iMAKE P REVIOUS MODE USER 
HUSESTK.-(KSP) :GET READY TO RESTORE USER S. POINT 
MOV #MTPIV2.MMVEC  :SET M.M. VECTOR TO 208 
MTP] USP ‘RESTORE USER STACK POINTER 
MOV #MGMERR.MMVEC :RESTORE MM VECTOR TO NORMAL ROUTINE 
:THIS WILL TEST DSTM = 1 MTPI. 
MOV #MTPILP,$LPERR ;SET LOOP ON ERROR POINTER TO MTPILP IN SUBROUTINE 
MOV #030340.MTPIPM :SET PREVIOUS MODE = USER IN SUBROUTINE LOCATION 
MOV WMTPIV2.MTPIVC :SET THIS TEST'S MM TRAP HANDLER IN MTPIVC 
MOV #100000,R2 ‘LOAD VIRTUAL ADDRESS INTO R2 
MOV #125252,RO “LOAD TEST DATA INTO RO 
JSR PC ,MIPITS *GO DO TEST USING MTPI INSTRUCTION LOCATED 
MTP] (R2) i <HERE - LOAD TEST DATA INTO PHYSICAL 60000 
NOP ‘NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
.WORD 0 SADD 0 TO R2 AFTER MTP] INSTRUCTION EXECUTE 
ERROR +24 *RETURN IS HERE FOR ERROR - INCORRECT STORE 
TST (SP) + “POP EXCESS RETURN OFF STACK ~ LOOPING NOT DONE 
: THE FOLLOWING WILL TEST DSTM=2 MTPI. 
MOV #125252,R0 :LOAD TEST DATA INTO RO 
MOV #100000 ,R2 ‘LOAD VIRTUAL ADDRESS INTO R2 
JSR PC .MIPITS *G0 DO TEST USING MTPI INSTRUCTION LOCATED 
MTP] (R2) + *<HERE - LOAD TEST DATA INTO PHYSICAL 60000 
NOP ‘NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
WORD <2 ‘ADD -2 TO R2 AFTER MIP] INSTRUCTION EXECUTE 
ERROR +24 “RETURN IS HERE FOR ERROR - INCORRECT STORE 
TST (SP) + ‘POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
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# 24 = MOVE TO PREVIOUS (USER) I-SPACE 


3443 sTHIS WILL TEST DSTM = 3 MTPI. 
3444 030764 012700 052525 MOV #52525 ,,RO “LOAD TEST DATA INTO RO 
3445 030770 004737 002616 JSR PC mipits *GO DO TEST USING MTPI INSTRUCTION LOCATED 
3446 030774 006637 100000 MTP]  a#i00 *<HERE = LOAD TEST DATA INTO PHYSICAL 60000 
3447 031000 000000 .WORD 0 “ADD 0 TO R2 AFTER MTPI INSTRUCTION EXECUTE 
3448 031002 104024 - ERROR +24 *RETURN IS HERE FOR ERROR - INCORRECT STORE 
3449 031004 005726 TST (SP) + “POP EXCESS RETURN OFF STACK = LOOPING NO 
3450 STHIS WILL TEST DSTM = 4 MTPI. 
3451 031006 012700 125252 MOV #125252,RO :LOAD TEST DATA INTO RO 
3452 031012 012702 100002 MOV #190002.R2 ‘LOAD VIRTUAL ADDRESS INTO R2 
3453 031016 004737 002616 JSR PC .MIPITS *GO DO TEST USING MTPI INSTRUCTION LOCATED 
3454 031022 006642 MIP]  =(R2) *<HERE - LOAD TEST DATA INTO PHYSICAL 60000 
3455 031024 000240 NOP [NOT MODE 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
3456 031026 000000 .WORD 0 ‘ADD 0 TO a5 AFTER MTPI INSTRUCTION EXECUTE 
3457 031030 104024 ERROR +24, “RETURN IS HERE FOR ERROR = INCORRECT STORE 
3458 031032 005726 TST (SP) “POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
3459 : THE FOLLOWING WILL TEST DSTM=5 MTPI. 
3460 031034 012700 052525 MOV #52525,RO :LOAD TEST DATA INTO RO 
3461 031040 012702 001204 MOV PeETNPD+D>, R2  =:LOAD ADDR. OF LOC. $TMP2+2 INTO R2 
3462 031044 012737 100000 001202 MOV #100000,$TMP2  :LOAD VIRT. ADDR. OF TEST LOC. INTO $TMP2 
3463 031052 004737 002616 JSR PC ,MTIPITS *G0 DO TEST USING MTPI INSTRUCTION LOCATED 
3464 031056 006652 MIP]  a@=(R2) :<HERE - LOAD TEST DATA INTO PHYSICAL 60000 
3465 031060 000240 NOP ‘NOT MODE 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
3466 031062 076576 .~WORD 100000-$TMP2 ADD Mo H00-S TMee TO R2 AFTER MTPI INSTRUCTION EXECUTE 
3467 031064 104024 ERROR +24 SRETURN IS HERE FOR ERROR - INCORRECT STORE 
3468 031066 005726 TST (SP) + *POP EXCESS RETURN OFF STACK - LOOPING NO 
3469 :THIS WILL TEST DSTM = 6 MTPI. 
3470 031070 012700 052525 MOV #52525,RO :LOAD TEST DATA INTO | RO 
3471 031074 005002 CLR R2 “MAKE REGISTER 2 ZERO 
3472 031076 004737 002616 JSR PC ,MTPITS “GO DO TEST USING MTPI INSTRUCTION LOCATED 
3473 031102 006662 100000 MTPI  100000(R2) *<HERE - LOAD TEST DATA INTO PHYSICAL 60000 
3474 031106 100000 | .WORD 100000 ‘ADD 100000 TO R2 AFTER MTPI INSTRUCTION EXECUTE 
3475 031110 104024 ERROR +24 ;RE TURN 1S HERE FOR ERROR - INCORRECT STORE 
3476 031112 005726 TST SP) + POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
3477 : THE FOLLOWING wiit TEST DSTM=7 MPI. 
3478 031114 012700 125252 MOV #125252,RO ;LOAD TEST DATA INTO RO 
79 031120 012737 100000 001202 MOV #100000.$TMP2 LOAD VIRT. ADDR. OF TEST LOCATION 
80 ONTO LOCATION $TMP2 
3481 031126 012702 001202 MOV ASTMP2 ,R2 ‘LOAD ADDRESS OF $TMP2 INTO R2 
3482 031132 004737 002616 JSR PC MTPITS *G0 DO TEST USING MIPI INSTRUCTION LOCATED 
3483 031136 006672 000000 MTPI a0(R2) t<HERE LOAD TEST DATA INTO PHYSICAL 60000 
3484 031142 076576 “WORD 100000-$TMP2 § :ADD 100000-S$TMP2 TO R2 AFTER MTPI INSTRUCTION EXECUTE 
3485 031144 104024 ERROR +24 SRETURN IS HERE FOR ERROR - INCORRECT STORE 
3486 031146 005726 TST (SP) + sPOP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
3487 031150 000423 BR TST25 * sBRANCH TO NEXT TEST 
3489 031152 012637 001260 MTPIV2: MOV (KSP)+,TRAPPC ;SAVE PC & PS OF TRAP 
3490 031156 012637 001262 MOV (KSP) +. TRAPPS 
3491 031162 013737 177572 001264 MOV SRO,WASSRO :SAVE SRO FOR ERROR TYPEOUT 


3492 031170 013737 177576 001270 MOV SR2,WASSR2 TSAVE SR2 FOR ERROR TYPEOUT 

3493 031176 042737 160000 177572 BIC #160000, SRO CLEAR ERROR BITS IN SRO 

3494 031204 104024 ERROR 134 TRIED TO LOAD A_N.R. PAGE 4 

3495 FOR TIGHTER coe LOOP, REPLACE et MOV INSTRUCTION WITH AN 'RTI'’ = 000002 
001262 MOV TRAPPS ,~(KSP) T PC & PS OF TRAP ON STACK 


6 
6 001260 MOV TRAPPC ,~(KSP) 
002 RT] ;RETURN TO TEST 


I 9 
CK ayy 11/44 MEM MGMT PRT B MACRO M1113 28-MAR-81 13:04 PAGE 84 SEQUENCE 112 
TEST # 25 = MFP] (KERNEL) TO SUPERVISOR MODE 


3513 - SBTTL TEST # 25 = MFPI (KERNEL) TO SUPERVISOR MODE 


RARER AREER ERA AAR ERAERARARAERAEEREREREREAEARAAAEREEEE 


S*TEST 25 MFP] (KERNEL) TO SUPERVISOR MODE 


;* THIS TEST CHECKS THAT IF THE PREVIOUS MODE IS KERNEL THE FETCH N WOE 


| 
i* 
| ; 
_* 
:* TEST. *IMPORTANT® = ALL 'NOP'S'’ FOLLOWING MFPI'S OF MODES 1,2, 
:* t "AND 5 ARE TO BE LEFT ALONE. THE SUBROUTINE LOADS THE TWO WORDS 
;* AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 
** 
ie IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT WILL OCCUR AND 
;* TRAP TO MFPIV3, WHERE THE ERRORS ARE REPORTED. 
** 
031220 78 


WUTTTTTITIT ITIL TTL do 
000004 T23: Sc 
031222 012737 031256 00 


OPE 

3514 1110 MOV #1$,$LPERR :SET LOOP ON ERROR TO 1$ 

3515 031230 012737 040340 177776 MOV #040340,PSw :GO TO SUPERVISOR MODE FOR THIS TEST 

3516 031236 012700 036514 MOV #36514,RO ‘LOAD DATA PATTERN INTO RO 

3517 031242 010037 100000 MOV RO, a#100000 ‘LOAD DATA PATTERN INTO PHY 60000 

3518 031246 012702 100000 MOV #100000,R2 ‘LOAD VIRTUAL ADDRESS INTO R2 

3519 :THE FOLLOWING WILL TEST DSTM=0 MFPI 

3520 031252 105037 172210 CLRB = SIPDR4 :MAKE SUPERVISOR I-SPACE PAGE 4 NON-RESIDENT 

3521 031256 012737 040340 177776 18: MOV #040340,PSW “MAKE PREVIOUS MODE KERNEL PRESENT SUPERVISOR 

3522 031264 012737 031566 000250 MOV #MEP1V3 .MMVEC SET MM. VECTOR TO MFPIV3 

3523 031272 006506 MFPI KSP T KERNEL STACK POINTER ON SUPERVISOR STACK 

3524 031274 012737 015726 000250 MOV #MGMERR ,MMVEC ERE STORE MM VECTOR TO NORMAL ROUTINE 

3525 031302 022706 000700 CMP ASUPSTK,SSP WAS SOMETHING PUSHED ON STACK AT THE MFPI 

3526 031306 001407 BEQ 2$ “BRANCH TO ERROR IF NOTHING WAS PUSHED 

3527 031310 012600 MOV (SSP) +,RO ‘POP SUPERVISOR STACK | INTO RO 

3528 031312 012701 001100 MOV AKERSTK,R1 SEXPECTING 1100 AS 

3529 031316 020001 CMP RO,R1 ‘DID YOU GET THE SIGHT POINTER? 

3530 031320 001403 BEQ 3$ {BRANCH IF YOU DID 

3531 031322 104023 ERROR +23 :WRONG THING WAS PUSHED ON STACK 

3532 :FOR TIGHTER SCOPE LOOP, REPLACE. *BEQ 3$'' WITH ‘BR 1$°' = 000756 

3533 031324 000401 BR 3$ :BRANCH H TO NEXT TRY 

3534 031326 104025 2$: ERROR +25 THING PUSHED ON STACK 

3535 “FOR TIGHTER SCOPE LOOP, REPLACE. Npea 2$'' ABOVE WITH ‘BR 1$'° = 000762 

3536 “THE FOLLOWING WILL TEST DSTM=1 MFPI. 

3537 031330 012737 002506 001110 3$: MOV #MFPILP,$LPERR ;SET LOOP ON ERROR POINTER TO MFPILP IN SUBROUTINE 

3538 031336 012737 040340 002510 MOV #040340.MFPIPS :MAKE PREVIOUS MODE KERNEL PRESENT SUPERVISOR 

3539 031344 012737 031566 002612 MOV #MFPIV3.MFPIVC :MOVE THIS TEST'S MM TRAP VECTOR TO MFPIVC 

3540 031352 012700 036514 MOV #36514 ,RO SLOAD DATA EXPECTED INTO RO 

3541 031356 012702 100000 MOV #100000 ,R2 ‘LOAD VIRTUAL ADDRESS INTO R2 

3542 031362 004737 002454 JSR PC .MFPITS ‘GO DO TEST USING MFPI INSTRUCTION LOCATED 

3543 031366 006512 MFP] (R2) S<HERE - READ FROM PHYSICAL 60000 

3544 031370 000240 NOP ‘NOT MODE 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 

3545 031372 104023 ERROR +23 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 

3546 031374 005726 TST (SP) + “POP EXCESS RETURN OFF STACK ~ LOOPING NOT DONE 

3547 :THE FOLLOWING WILL TEST DSM=2 MFPI. 

3548 031376 012702 100000 MOV #100000,R2 “LOAD VIRTUAL ADDRESS INTO R2 

3549 031402 004737 002454 JSR PC .MFPITS *G0 DO TEST USING MFPI INSTRUCTION LOCATED 

3550 031406 006522 MFP I (R2)+ ‘<HERE - READ FROM PHYSICAL 60000 

3551 031410 000240 : NOP SNOT MODE 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
52 031412 104023 ERROR +23 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 

3553 031414 005726 TST (SP) + :POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 





1426 


3565 031450 

3566 

3567 O31628 
68 031460 


3573 031476 
3574 
3575 031500 


3590 031564 


012702 
7 


012702 
004 


| tex vere 11/44 MEM MGMT PRT B 
T # 25 = MFPI (KERNEL) TO SUPERVISOR MODE 


002454 
100000 


100002 
002454 


100000 
001204 
002454 


002454 
100000 


’ 
MACRO M1113 28-MAR=81 13:04 PAGE 84-1 


001202 


001202 


177776 
172210 


TST (SP) + 
;THE FOLLOWING WILL TEST DSTM=4 MFI. 
MOV #100002 ,R2 


TST (SP) + 
;THE FOLLOWING WILL TEST DSTM=6 MFPI. 
CLR Re 


TST (SP) + 
7THE FOLLOWING WILL TEST DSTM=7 MFPI. 
MOV #1000 


;THE FOLLOWING WILL ett DSTM=3 MFPI. 
JSR PC ,.MFPITS :60 DO TEST wt MFPI INSTRUCTION LOCATED 
MEPL #100000 ;<HERE = READ FROM PHYSICAL 60000 
ERROR +23 ZRETURN IS HERE FOR ERROR = WRONG DATA WAS 
;POP EXCESS RETURN OFF STACK = LOOPING NOT 


;LOAD VIRTUAL ADDRESS INTO R2 

‘60 DO TEST USING MFPI INSTRUCTION LOCATED 
:<HERE - READ FROM_PHYSICAL 60000 

ZNOT MODE 3, 6 OR 
TRETURN IS HERE FOR ERROR - WRONG DATA WAS 
:POP EXCESS RETURN OFF STACK = LOOPING NOT 


PI. 

+ LOAD TEST LOC. VIRT. ADDR INTO LOC. STMP2 
“LOAD ADDRESS OF $TMP2+2 INTO R2 

:GO DO TEST USING MFPI INSTRUCTION LOCATED 
7<HERE - READ FROM_PHYSICAL 60000 

SNOT MODE 3, 6 

[RETURN IS HERE FOR ERROR - 


NOP 
— ee 

sTHE FOLLOWING WILL TEST DSTM=5 
MOV #100000 ,$TMP2 
MOV #<$TMP2+2>, R2 
JSR PC,MFPITS 
MF PI a-(R2) 


NOP 
ERROR +23 


aaa 


WRONG DATA WAS 


7 - NEEDED FOR SUBROUTINE 


. 7 - NEEDED FOR SUBROUTINE 


SEQUENCE 113 


FETCHED 
DONE 


LOAD 
FETCHED 
DONE 


LOAD 
FETCHED 


:POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


MAKE REGISTER 2 A ZERO 

7GO DO TEST USING MFPI INSTRUCTION LOCATED 
7<HERE = READ FROM PHYSICAL 60000 

[RETURN IS HERE FOR ERROR ~ WRONG DATA WAS 


JSR PC,MFPITS 
MFPI 100000(R2) 
ERROR +23 


FETCHED 


POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


00,$TMP2 ;LOAD TEST LOC. VIRT. ADDR. INTO STMP2 
MOV #STMP2 ,R2 [LOAD ADDRESS OF $TMP2 INTO R2 
JSR PC ,MFPITS 3GO DO TEST USING MFPI INSTRUCTION LOCATED 
MFPI a0(R2) 7 <HERE - READ FROM PHYSICAL 60000 


ERROR +23 [WRONG DATA WAS FETCHED 

TST (SP) + [POP EXCESS RETURN OFF STACK ~ LOOPING NOT 
MOV #00340 ,PSW ;GO BACK TO KERNEL es PREVIOUS KERNEL 
MOVB #6,SIPDR4 SMAKE SIPDR4 RESIDENT 


MOV MKERSTK ,KSP RESET KERNEL STACK Spates 
BR TST26 7 ;BRANCH TO NEXT TEXT 


DONE 


ah oS 11/44 MEM MGMT PRT B 


ROUTINE FOR ABOVE 


3600 03 
3601 031626 013746 
3602 031632 000002 








TEST 


kK 9 
MACRO M1113 28-MAR-81 13:04 PAGE 85 


.SBTTL MM TRAP ROUTINE FOR “oe TEST 
: MOV SP) C ;SAVE PC & PS OF TRAP 


SAVE SRO FOR ERROR TYPEOUT 

TSAVE SR2 FOR ERROR TYPEOUT 

CLEAR ays BITS IN SRO 

ERROR O READ NON-RESIDENT PAGE 

3FOR TIGHTER SCOPE "40". REPLACE ‘Ast MOV INSTRUCITON WITH AN ‘RTI"’ 
MOV ( ; PC & PS OF TRAP ON STACK 


RETURN TO TEST 





TEST 
3603 


006 
3637 032010 


3643 032026 


Sy 11/744 MEM MGMT 


0 7 
012702 
012737 


031644 
140340 
036514 
100000 
100000 
032176 
177610 
140340 


015726 
000600 


001100 


100000 
002454 


000250 
177776 
000250 


. o 
MACRO M1113 28-MAR-81 13:04 PAGE 86 
# 26 ~ MFPI (RERNEL) "10 USER MODE 


SEQUENCE 115 


» SBTTL TEST # 26 = MFPI (KERNEL) TO USER MODE 


ERE REE EEAEEEREREREEREREREEEEREREEREEEEREEREEH 


TRTEST 26 MFP] (KERNEL) TO USER MODE 

** 

;* THIS TEST CHECKS THAT IF THE PREVIOUS MODE IS KERNEL THE FETCH IS FROM 
* KERNEL SPACE. THERE IS A DESCRIPTION BEFORE EACH DESTINATION 

:* TESTED. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE 

:* WHICH USES THE MFPI INSTRUCTION CODE FOLLOWING THE JSR CALL TO EXECUTE 
t* THE TEST. *IMPORTANT® = ALL ' FOLLOWING MFPI'S OF MODES 1,2, 

zs 4 AND 5 ARE TO BE LEFT ALONE. THE » SUBROUTINE LOADS THE TWO WORDS 

i® AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 

** 
* IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT WILL OCCUR AND 
i TRAP TO MFPIV4, WHERE THE ERRORS ARE REPORTED. 

** 
bE RRR RARER EERE TEER RARE EERE AREER REE EEE EEE 

TST26: SCOPE 

MOV #1$,SLPERR ;SET LOOP ON ERROR TO 1$ 

1$: MOV #140340,PSW :GO TO USER MODE FOR THIS TEST . 


MOV #100000 ,R2 
:THE FOLLOWING WILL TEST DSTM=0 MFPI 
MO #MFPIVG MMVEC 


MOV #36514 
MOV RO,af'1 


[LOAD DATA PATTERN INTO RO 
ZLOAD DATA PATTERN INTO PHY 
;LOAD VIRTUAL ADDRESS INTO R2 


ibn 


Vv SET M.M. VECTOR TO MFPIV 
CLRB UIPDR4 [MAKE USER I-SPACE PAGE 4 NON-RESIDENT 
MOV #140340,PSW ZMAKE PREVIOUS MODE KERNEL PRESENT USER 
MFPI KSP PUT KERNEL STACK POINTER ON USER STACK 
MOV AMGMERR , MMVE C ZRESTORE MM VECTOR TO NORMAL ROUTINE 
CMP MUSESTK ,USP WAS SOMETHING PUSHED ON STACK AT THE MFPI 
BEQ 2$ CH IF NOTHING WAS PUSHE 
MOV (USP) +,RO : USER STACK INTO RO 
MOV #MKERSTK,R1 EXPECTING 1100 AS KSP 
CMP RO,R1 DID YOU GET THE. RIGHT POINTER? 
os 3$ BRANCH IF YOU DID 
ERR +23 WRONG THING WAS PUSHED ON STACK 
7FOR TIGHTER. SCOPE LOOP, REPLACE 'BEQ 3s WITH ‘BR 1$'' = 000763 
3$ ae ay NEXT TRY 


2$: ERROR +25 
FOR TIGHTER SCOPE LOOP, REPLACE. ‘Bea. oS WITH 
;THE FOLLOWING 7. he i DSTM=1 MFP 


5$: 


TST SP) + 
7 THE FOLLOWING Witt TEST DSM=2 MF 
MOV #100000,R2 


PUSHED ON STA CK 


‘BR 1$'' = 000763 


I. 
;SET LOOP ON ERROR POINTER TO MFPILP IN SUBROUTINE 


MOV P,$LPERR 

MOV 60360. "MFPIPS “=MAKE PREVIOUS MODE KERNEL PRESENT USER 

MOV #MEPIVG-MFPIVC MOVE THIS TEST'S MM TRAP HANDLER TO MFPIVC 

MOV #36514,RO ;LOAD DATA EXPECTED INTO RO 

MOV #100000 ,R2 *LOAD VIRTUAL ADDRESS INTO R2 

JSR PC MEP ‘G0 DO TEST USING MFPI INSTRUCTION LOCATED 

MFP] (R2) ; <HERE - READ FROM PHYSICAL 60000 

NOP T MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
ERROR +23 “WRONG DATA’ WAS FETCHED 


wine? EXCESS RETURN OFF STACK =~ LOOPING NOT DONE 


LOAD. V VIRTUAL ADDRESS INTO R2 
G0 DO TEST USING MFPI_ INSTRUCTION LOCATED 


JSR PC MFPITS 

MFPI (R2)+ ; <HERE ~ READ FROM PHYSICAL 60000 

NOP MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
ERROR +23 RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
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Say 11/44 MEM MGMT PRT B MACRO M1113 28-MAR-81 13:04 PAGE 86-1 SEQUENCE 116 
T # 26 = MFPI (KERNEL) TO USER MODE 


3644 032030 005726 TST (SP) + ;POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
3645 sTHE FOLLOWING WILL 4 3 DSTM=3 MFPI. 
3646 032032 004737 002454 JSR PC ,MFPITS :GO DO TEST USING MFPI INSTRUCTION LOCATED 
| 347 032036 006537 100000 MFPI a#100000 ’ ; <HERE = READ FROM PHYSICAL 60000 
3648 032042 104023 ERROR +23 WRONG DATA WAS FETCHED 
3649 032044 005726 TST (SP) + ‘POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
; THE sg "ye WILL TEST DSTM=4 MFP - 
3651 032046 012702 100002 #100002,R2 -LOAD VIRTUAL ADDRESS INTO R2 
3652 032052 004737 002454 IO PC, MFPITS GO DO TEST USING MFPI INSTRUCTION LOCATED 
3653 032056 006542 MFP] (R2) ; <HERE - READ FROM PHYSICAL 60000 
3654 032060 000240 NOP T MODE 3, 6 Oo 7 = NEEDED FOR SUBROUTINE LOAD 
3655 032062 104023 ERROR +23 RETURN Is HERE F OR ERROR = WRONG DATA WAS FETCHED 
3656 032064 005726 TST (SP) + POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
>THE FOLLOWING WILL TEST DSTM=5 MFP Re 
3658 032066 012737 100000 001202 MOV #100000 ,$TMP2 ;LOAD TEST LOC. VIRT. ADDR INTO LOC. STMP2 
3659 032074 012702 001204 MOV #<STMP2+2>,R2  :LOAD ADDRESS OF $TMP2+2 INTO R2 
3660 032100 004737 002454 JSR ~~ PC ,MFPITS 60 DO TEST USING MFPI INSTRUCTION LOCATED 
3661 032104 006552 MFPI  a=(R2) S<HERE - READ FROM PHYSICAL 60000 
3662 032106 000240 NOP sNOT MODE 3, 6 5 ah - NEEDED FOR SUBROUTINE LOAD 
3663 032110 104023 ERROR +23 RETURN Is HERE F OR ERROR =- WRONG DATA WAS FETCHED 
032112 005726 TST (SP) + *POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
5 :THE FOLLOWING WILL TEST DSTM=6 MFP I. 
032114 005002 CLR R2 ;MAKE REGISTER 2 A ZERO 
7 032116 004737 002454 JSR PC ,MFPITS :GO DO TEST USING MFPI INSTRUCTION LOCATED 
3668 032122 006562 100000 MFPI —- 100000(R2)  <AERE = READ FROM PHYSICAL 60000 
3669 032126 104023 ERROR +23 WRONG DATA WAS FETCHED 
3670 032130 005726 TST (SP) + “POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
3671 THE FOLLOWING WILL TEST DSTM=7 MFP a 
3672 032132 012737 100000 001202 MOV #100000,$TMP2  ;LOAD TEST LOC. VIRT. ADDR. INTO $TMP2 
3673 032140 012702 001202 MOV #STMP2 ,R2 ‘LOAD ADDRESS OF $TMP2 INTO R2 
3674 032144 004737 002454 JSR PC,MFPITS :GO DO TEST USING MFPI INSTRUCTION LOCATED 
3675 032150 006572 000000 MFPI  a0(R2) ‘<HERE - READ FROM PHYSICAL 60000 
3676 032154 104023 ERROR +23 ‘WRONG DATA WAS FETCHED 
3677 032156 005726 TST (SP) *POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
3678 032160 012737 000340 177776 MOV 4700340, PSW :GO BACK TO KERNEL MODE, PREVIOUS KERNEL 
3679 032166 112737 000006 177610 MOVB #6, UIPDR4 ;MAKE UIPDR4 RESIDENT 


3680 032174 000423 BR TST27 7 ;BRANCH TO NEXT TEXT 
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CKKTBCO 11/44 MEM MGMT PRT B MACRO M1113 28-MAR-81 13:04 PAGE 87 SEQUENCE 117 
MM TRAP HANDLER FOR ABOVE TEST 


O85 .SBTTL MM TRAP HANDLER FOR ABOVE 7 
032176 012637 001260 MFPIV4: MOV (KSP)+,TRAPPC  ;SAVE PC & Ps "oF TRAP 
3684 032202 Bi goee 00126 MOV (KSP) +, TRAPPS 
eH 032206 013737 177572 001264 MOV 3 - wASSRO :SAVE SRO FOR ERROR TYPEOUT 
032214 013737 177576 001270 MOV cauassne TSAVE SR2 FOR ERROR TYPEOUT 

3687 032222 042737 160000 177572 oh 4 7160000, CLEAR Aye BITS IN SR 
3688 032230 1 ED TO READ NON-RESIDENT PAGE 
3689 3FOR TIGHTER score *L00P, REPLACE 1ST MOV INSTRUCTION WITH AN ‘RTI‘* = 000002 
3690 032232 013746 001262 MOV TRAPPS,=(KSP)  ;PUT PC & PS OF TRAP ON STACK 

1 032236 013746 001260 MOV TRAPPC ,=(KSP) 


369 
3692 032242 000002 RTI ;RETURN TO TEST 


Nee eee — 





re 11/44 MEM MGMT PRT B 
# 27 - MFPI (SUPERVISOR) WITH SUPER D-SPACE ENABLED 


» SBTTL TEST # 27 = MFPI (SUPERVISOR) WITH SUPER D-SPACE ENABLED 


RE RARO RARE AREA REREEEREEEAAAEAEAEAEREREEREREEEEREEERREREREEEEE 


:*TEST 27 MFP] (SUPERVISOR) WITH SUPER D-SPACE ENABLED 


3707 


‘ 032244 
3708 032246 
3709 


3710 sy eeto4 


“32 08831 


31 5 032314 


3727 032354 
3728 
3729 032356 


3734 032374 
3735 

3736 032376 
3737 032402 
3738 032406 
3739 032412 
3740 032414 
3741 

3742 032416 


3747 032434 


- 


077400 
172330 


000002 
172310 


002506 
010340 
052 54 
002434 


100000 
002454 


100000 


002454 . 
100000 


100002 
002454 


10 
MACRO M1113 28-MAR~81 13:04 PAGE Bs SEQUENCE 


i 


TST (SP) + 
;THE FOLLOWING WILL TEST DSTM=2 MPI. 
MOV #1000 


-* 
-* 
-* 
‘*® 
:® 
-* 
-* 
-* 
-* 
-* 
:* 
-* 
§ 


CLRB KIPDR4 : 
; THE a _. Le DSTM=1 MFPI. 


TST (SP 
; THE FOLLOWING vill. TEST DSTM=4 
MOV #100002 ,R2 


CODE ont THE JSR CALL TO EXECUTE PS TEST. *IMPORTANT* = ALL 
"WOP'S'’ FOLLOWING MFPI'S OF MODES 1,2, 4 AND 5 ARE TO BE LEFT ALONE. 
eer 2 ins ee THE TWO WORDS AFTER THe JSR CALL, PREPARING FOR 


IF THE CORRECT MODE IS NOT ENABLED, A NON-RESIDENT ABORT WILL OCCUR AND 
TRAP TO MFPIVS, WHERE THE ERRORS ARE REPORTED. 


RARER EERAEREREREREREEERERAEEAREERREERKRKEHE 


T27: 


TST (SP) + 
seg THE FOLLOWING WILL TEST DSTM=3 
; MOV #10 


SCOPE 

MOV #77400,R0 ;MAKE PAGE 4 IN ALL BUT - Seataiecceg I 
+ AND KERNAL I a” © om 

MOV RO, KDPDR4 ;KERNAL D-SPACE PAGE 4 


MOV RO, SDPDR4S ; SUPERVI SOR D=-SPACE PAGE 4 
MOV RO,UDPDR4 A 


MOV RO,UIPDRS FUSER I-SPACE PAGE 4 
MOV #36514,RO LOAD DATA PATTERN INTO RO 
MOV RO,a46 ;LOAD DATA PATTERN INTO PHYS. 60000 


BIS #B1T1,.MMR3 TENABLE SUPERVISOR sD-SPACE 


MAKE KERNAL I-SPACE PAGE 4 NON-RESIDENT 


PILP,S$LPERR ;SET LOOP ON ERROR POINTER TO MFPILP IN SUBROUTINE 
MOV 4010340. MFPIPS MAKE PREVIOUS MODE SUPERVISOR IN SUBRTN LOCATION 
MOV WMFPIVS;MEPIVC :MOVE THIS TEST'S MM TRAP HANDLER TO MFPIVC 

MOV #100000.R2 ‘LOAD VIRTUAL ADDRESS INTO R2 

JSR PC .MFPITS ‘60 DO TEST USING THE MFPI INSTRUCTION FOUND 

MFP] (R2) S<HERE - READ FROM PHYSICAL 60000 

NOP ‘NOT MODE 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
ERROR +37 “RETURN IS HERE FOR ERROR - WRONG DATA FETCHED 
“POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 


00,R2 VIRTUAL ADDRESS INTO R2 
JSR PC MFPITS £60 0 dO TEST USING THE MFPI INSTRUCTION FOUND 
MFFI (R2)+ 7<HERE - READ FROM PHYSICAL 100000 
NOP SNOT MODE 3, 6 ¥: me ~- NEEDED FOR SUBROUTINE LOAD 
ERROR +37 [RETURN IS HERE FOR ERROR - WRONG DATA FETCHED 
:POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 


MFPI. 
0000 ,R2 LOAD VIRTUAL ADDRESS INTO R2 
JS PC ,MFPITS [G0 DO TEST USING THE MFPI INSTRUCTION FOUND 
MFPI ar 00 7<HERE - READ Ag 2K PHYSICAL 100000 
ERROR ‘whe SRETURN IS HERE FOR ERROR - WRONG DATA FETCHED 


*POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


I. 
;LOAD VIRTUAL ADDRESS INTO R2 
[GO DO TEST USING THE MFPI INSTRUCTION FOUND 


° Bt: 
— 
v 


JSR PC ,MFPITS 


MFPI -(R2) S<HERE - READ FROM_PHYSICAL 1 

NOP ;NOT MODE 3, 6 e 7 - NEEDED FOR SUBROUTINE LOAD 
ERROR +37 SRETURN IS HERE FOR ERROR - WRONG DATA FETCHED 
TST (SP) + ‘POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


118 
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be 11/44 MEM MGMT PRT B MACRO M1113  28-MAR-81 13:04 PAGE 88-1 SEQUENCE 119 
1 # 27 = MFP] (SUPERVISOR) WITH SUPER D-SPACE ENABLED 


3748 032436 112737 000006 172310 MOVB #6, KIPDR4 ;MAKE KIPDR4 RESIDENT 
3749 032444 042737 000002 172516 BIC wit, MMR 3 ; DISABLE = god be D-SPACE 
3750 032452 000426 BR TST30° ; ;BRANC CH TO NEXT TEST 


4 
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CKKTBCO 11/44 MEM MGMT PRT B MACRO M1113 28-MAR=81 13:04 PAGE 89 SEQUENCE 
MM TRAP HANDLER FOR ABOVE TEST 


3752 .SBTTL MM TRAP HANDLER FOR ABOVE TEST 

3753 032454 013737 177572 001264 MFPIVS: MOV MMRO ,WASSRO SAVE MMRO FOR ERROR TYPEOUT 
3754 032462 013737 177574 001266 MOV MMR1 ,WASSR1 TSAVE MMR1 FOR ERROR TYPEOUT 
3755 032470 013737 177576 001270 MOV MMR2 , WASSR2 7SAVE MMR2 FOR ERROR TYPEOUT 
3756 032476 013737 172516 001272 MOV MMR3,WASSR5 SAVE MMR3 FOR ERROR TYPEOUT 
3757 032504 012637 001260 MOV (KSP)+,TRAPPC ;SAVE PC & PS OF TRAP 

3758 032510 012637 001262 MOV (KSP) +, TRAPPS 

3759 032514 104040 +40 ;TRIED TO READ NON-RESIDENT PAGE 


ERROR 
3760 FOR TIGHTER SCOPE LOOP, REPLACE 1ST MOV INSTRUCTION WITH AN ‘RTI‘* = 000002 
3761 032516 013746 001262 MOV TRAPPS,=(KSP)  ;PUT PC & PS OF TRAP ON STACK 
3762 032522 013746 001260 MOV TRAPPC ,=(KSP) 
3763 032526 000002 RTI 


120 
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CKKTBCO_11/44 MEM MGMT PRT 8B MACRO M1113 28-MAR-81 13:04 PAGE 90 SEQUENCE 121 
TEST # 30 = MTP] (SUPERVISOR) WITH SUPER. D=SPACE ENABLED 


3778 . SBTTL TEST # 30 = MTPI (SUPERVISOR) WITH SUPER. D=SPACE ENABLED 


ERE EERERE EERE AERA EERERERERAAA ER AAEEAAAAREREREREEED 


:*TEST 30 MIP] (SUPERVISOR) WITH SUPER. D=SPACE ENABLED 


-® 
* THIS TEST USES THE *MTPI' INSTRUCTION TO ENSURE THAT THE PREVIOUS MODE 
° IS CLOCKED CORRECTLY, AND THAT D-SPACE -IS NOT ENABLED. THE TEST ITSELF 
* 1S CARRIED OUT IN SUBROUTINE MTPITS, WHICH USES THE MTPI_ INSTRUCTION 

e CODE 4 tT THE JSR CALL TO EXECUTE THE TEST. *IMPORTANT® = ALL 

* "WOP*S'’ FOLLOWING MTPI'S OF MODES 1,2, 4 AND 5 ARE TO BE LEFT ALONE. 

;* THE SUBROUTINE LOADS THE TWO WORDS AFTER THE JSR CALL,. PREPARING 7 

* MODES 3, 6 AND 7. 

* 

7 

* 

® 


IF THE CORRECT MODE IS NOT ENABLED, A NON-RESIDENT ABORT WILL OCCUR AND 
AND TRAP TO MTPIV3, WHERE, THE ERRORS ARE REPORTED. 


a. a oe Se Be Be Se Se Se Be Se 


032530 000004 $130: SCOPE 
032532 052737 000002 172516 BIS #8111 ,MMR3 ENABLE SUPERVISOR D-SPACE 
80 THIS WILL TEST DSTM = 1 MTPI 
032540 012737 002644 001110 MOV #MTPILP,$LPERR ;SET LOOP ON ERROR POINTER TO MTPILP IN SUBROUTINE 
032546 012737 010340 002646 MOV #010340.MTPIPM :MAKE PREVIOUS MODE SUPERVISOR IN LOCATION IN SUBRTN 
032554 012737 032714 002734 MOV AMTPIV3,MTPIVC ;LOAD THIS TEST'S MM TRAP HANDLER TO MTPIVC 
032562 012702 100000 MOV #100000 ,R2 ;LOAD VIRTUAL ADDRESS INTO R2 
032566 012700 125252 MOV #125252,R0 LOAD TEST DATA INTO RO 
032572 004737 002616 JSR PC ,MIPITS G0 DO THE TEST USING MTPI INSTRUCTION FOUND 
032576 006612 MTPI (R2) ; LOAD yy oo INTO PHYSICAL 100000 
3 032600 000240 NOP :<HERE - NOT MODE 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
3789 032602 000000 -WORD 0 ZADD 0 TO NR2 AFTER MTPI INSTRUCTION EXECUTE 
032604 104035 ERROR +35 ;RETURN IS HERE FOR ERROR - INCORRECT STORE 
032606 005726 TST (SP) + [POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
2 ;THIS WILL TEST DSTM = 3 MTPI 
032610 012700 052525 MOV #52525,R0 ;LOAD TEST DATA INTO RO 
032614 004737 002616 JSR PC MIPITS 7GO DO THE TEST USING MTPI_ INSTRUCTION FOUND 
032620 006637 100000 MTP] a#100000 ;<HERE - LOAD TEST DATA INTO PHYSICAL 100000 
032624 000000 -WORD 0 ZADD 0 TO R2 AFTER MTPI_ INSTRUCTION EXECUTE 
3797 032626 104035 ERROR +35 ;RETURN IS HERE FOR ERROR ~ INCORRECT STORE 
8 032630 005726 TST (SP) + sPOP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
THIS WILL TEST DSTM = 4 MTPI 
032632 012700 125252 MOV #125252,R0 = LOAD TEST DATA_INTO RO 
032636 012702 100002 MOV #100002 ,R2 ;LOAD VIRTUAL ADDRESS INTO R2 
032642 004737 002616 JSR PC ,MIPITS :GO DO THE TEST USING MTPI INSTRUCTION FOUND 
032646 006642 MTPI -(R2) :<HERE - LOAD TEST DATA INTO co oo 100000 
032650 000240 NOP [NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
032652 000000 -WORD 0 ADD 0 TO Re ee MTPI INSTRUCTION EXECUTE 
3806 032654 104035 ERROR +35 RETURN IS HERE FOR ERROR ~ INCORRECT STORE 
3807 032656 005726 TST (SP) + :POP EXCESS RETURN OFF STACK ~ LOOPING NOT DONE , 
THIS WILL TEST DSTM = 6 MTPI 
032660 012700 052525 MOV #52525 ,RO LOAD TEST DATA INTO RO 
032664 005002 CLR R2 SMAKE Re ZERO 
032666 004737 002616 JSR PC ,MTPITS 7GO DO THE TEST USING MTPI_ INSTRUCTION FOUND 
032672 006662 100000 MTP] 100000(R2) :<HERE - LOAD TEST DATA INTO PHYSICAL 100000 
032676 100000 «WORD 100000 [ADD 100000 TO Re AFTER MTPI INSTRUCTION EXECUTE 
032700 104035 ERROR +35 ‘RETURN IS HERE FOR ERROR - INCORRECT STORE 
032702 005726 TST (SP)+ POP EXCESS RETURN OFF STACK ~ LOOPING NOT DONE 
032704 042737 000002 172516 BIC #B1T1,MMR3 :DISABLE SUPERVISOR D~SPACE 


032712 000410 BR TST31 7;BRANCH TO NEXT TEST 





— 


CKKTBCO 11/44 MEM MGMT PRT B 
MM TRAP HANDLER FOR ABOVE TEST 


3819 


3824 
3825 032732 


eee 


177572 
177574 
177576 
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.SBTTL MM TRAP HANDLER FOR a eal TEST 
MTPIV3: MOV MMRO ,RO ;SAVE MMRO FOR ERROR TYPEOUT 
MOV MMR1 RI ‘CAVE MMR1 FOR ERROR TYPEOUT 
MOV MMR2 ,R2 TSAVE MMR2 FOR ERROR TYPEOUT 
ERROR +36 ;TRIED TO LOAD A NON-RESIDENT PAGE 4 
7FOR — SCOPE LOOP, REPLACE 1ST MOV INSTRUCTION WITH AN RTI" = 000002 


RT] RETURN TO TEST 


ae 


032734 
3827 032736 
3828 032744 
3829 032752 


3830 

3831 032760 
3832 032766 
3833 032774 
3834 03 


3856 

3857 033076 

3858 

3859 033100 

3860 033104 

3861 033106 

3862 033112 

3863 033116 
033120 


3864 
3865 033122 
3866 033124 


052737 
012737 


CKKTBCO_11/44 MEM MGMT PRT B 
TEST # 31 = MTP] (USER) WITH USER D=SPACE ENABLED 


077400 
077406 
000001 
002644 
030340 
033134 
100000 


125252 
002616 


052525 
002616 
100000 


125252 
100002 
002616 


052525 


002616 
100000 


000001 
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172516 


¥ 


SEQUENCE 


_SBITL TEST # 31 = MTPI (USER) WITH USER D=SPACE ENABLED 
bd RSA AE EAE REREEAAEAAEERAAAEAAAAARAATERAARAEHETERAEREEAEE 
;*TEsT 31 MTP] (USER) WITH USER D-SPACE ENABLED 
* THIS TEST USES THE "MTPI' INSTRUCTION TO ENSURE THAT THE PREVIOUS MODE 
“ 1S CLOCKED CORRECTLY, AND THAT D-SPACE IS NOT ENABLED. THE TEST ITSELF 
“ I$ CARRIED OUT IN SUBROUTINE MTPITS, WHICH USES THE MTPI INSTRUCTION 
. CODE FOLLOWING THE JSR CALL TO EXECUTE THE TEST. *IMPORTANT® = ALL 
. “NOP'S’’ FOLLOWING MTPI'S OF MODES 1,2, 4 AND 5 ARE TO BE LEFT ALONE. 
. THE SUBROUTINE LOADS THE TWO WORDS AFTER THE JSR CALL, PREPARING FOR 
. MODES 3, 6 AND 7. 
® 
. IF THE CORRECT MODE IS NOT ENABLED, A NON-RESIDENT ABORT WILL OCCUR AND 
. AND TRAP TO MTPIV4, WHERE THE ERRORS ARE REPORTED. 
® 
LARA AAA AERA AREA A AAA A ATTA AAA AAA E REAR AREA ARERAAAR ARERR EERE REE SS 
$731: SCOPE 
MOV #77600,SIPDR4 ;MAKE SIPDR4 NON-RESIDENT 
MOV #77606.UIPDR4 MAKE UIPDR4 RESIDENT 
BIS #81T0,MMR3 TENABLE USER D-SPACE 


TS (SP) + 
;THIS WILL TEST DSTM = 3 MITPI 
MOV a5 


TST (SP) + 
THIS WILL TEST DSTM = 4 MIPI 


TS (SP) + 
; THIS WILL TEST DSTM = 
MOV #525 


125 


MOV AMTPILP,SLPERR ;SET LOOP ON ERROR POINTER TO MTPILP IN SUBROUTINE 
MOV #030340.MTPIPM :MAKE LOCATION IN SUBROUTINE PREVIOUS MODE USER 
MOV apt bed MTPIVC ;PUT THIS TEST'S MM TRAP HANDLER ADDRESS IN LOC MTPIVC 
MOV #100000 ,R2 ;LOAD VIRTUAL y's INTO R2 
MOV #125252,RO0 [LOAD TEST DATA INTO R 
JSR PC MIPITS 3GO DO TEST USING MTPI INSTRUCTION FOUND 
MTP] (R2) :<HERE = LOAD TEST DATA INTO PHYSICAL 100000 
NOP [MODE NOT 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
-wORD 0 = ADD 0 TO R2 AFTER MTPI INSTRUCTION EXECUTE 
ERROR +35 ;RETURN IS HERE FOR ERROR - INCORRECT STORE 

T SP [POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


2525 RO ;LOAD TEST DATA INTO RO 
JSR PC ,MIPITS :GO DO TEST USING MTPI INSTRUCTION FOUND 
MTPI a4#100000 :<HERE - LOAD TEST DATA INTO PHYSICAL 100000 


-WORD 0 ‘ADD 0 TO R2 AFTER MTPI INSTRUCTION EXECUTE 
ERROR +35 RETURN IS HERE FOR ERROR - INCORRECT —— 


;POP EXCESS RETURN OFF STACK ~ LOOPING NOT DONE 


MOV #125252,R0 « LOAD TEST DATA INTO RO 
MOV #100002 ,R2 ;LOAD VIRTUAL ADDRESS INTO R2 
JSR PC MIPITS ‘60 DO TEST USING MTPI INSTRUCTION FOUND 
MIP] -(R2) ;LOAD a A DATA INTO PHYSICAL 100000 
NOP ;<HERE - MODE NO 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
WORD 0 ZADD 0 TO R2 4 MTPI INSTRUCTION EXECUTE 
ERROR +35 RETURN IS HERE FOR ERROR - INCORRECT STORE 
T ;POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 


6 MTP] 
25,RO0 LOAD TEST DATA INTO RO 
:MAKE R2 ZER 


CLR R2 E Re ZERO 

JSR PC MITPITS 7GO DO TEST USING MTPI INSTRUCTION —_—_ 

MTP] 190000(R2) 7<HERE - LOAD TEST DATA INTO PHYSICAL 100000 

. WORD 000 ZADD 100000 TO Re AFTER MTPI INSTRUCTION EXECUTE 
ERROR 133 SRETURN IS HERE FOR ERROR - INCORRECT STORE 

TST (SP) + POP EXCESS RETURN OFF STACK ~ LOOPING NOT DONE 
BIC #8110 ,MMR3 [DISABLE USER D-SPACE 





ee ee ee —— —— 
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# 31 = MTPI (USER) WITH USER D=SPACE ENABLED 


3867 033132 000410 


BR TST32 


7 BRANCH TO NEXT TEST 


SEQUENCE 


124 


(ag 
bs 
| 
| 
| 
| 


aha gt 11/44 MEM MGMT PRT B 


3869 

3870 033134 
3871 033140 
3872 033144 
+ eg 033150 


3874 
3875 033152 


01 e700 
013701 


61 3702 
104036 


000002 


177572 
177574 
177576 


1.10 


MACRO M1113 28-MAR=81 13:04 PAGE 93 SEQUENCE 
TRAP CATCHER FOR THE ABOVE TEST 


.SBTTL MM TRAP CATCHER FOR THE ABOVE TEST 

MTPIV4: MOV MMRO ,RO SAVE MMRO FOR ERROR TYPEOUT 
MOV MARI ,R1 ‘SAVE MMR1 FOR ERROR TYPEOUT 
MOV wre. ;R2 ts MMR2 FOR ERROR TYPEOUT 


ERROR TRIED 
:FOR ~~ SCOPE LOOP, REPLACE’ mi} MOV yh ee WITH AN ‘RTI** = 000002 


125 


Say 11/44 MEM MGMT PRT B 
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SEQUENCE 126 


# 32 - MFP] (PREVIOUS=CURRENT=KERNEL ) 


3884 


3893 033206 
3894 
3895 033210 


3898 033216 
3899 
3900 033220 


000006 
177776 
001100 


001100 


172330 





-SBTTL TEST # 32 = MFPI (PREVIOUS=CURRENT=KERNEL ) 


RARER AER ERAA AERA AERA AEAEEEEEREEEEAAAREARERHEER EERE EARNS 


T*TEST 32 MFP] (PREVIOUS=CURRENT=KERNEL ) 

-# 

3” THIS TEST CHECKS THAT IF BOTH PREVIOUS AND CURRENT MODES ARE KERNEL, 
;@ AND THE SOURCE MODE IS 0, THE DESTINATION STACK IS NOT DECREMENTED 

ad BEFORE ACCESS. ‘MFPI KSP** SHOULD PUSH THE NON-DE CREMENTED VALUE OF KSP 
:* (1100) ONTO THE STACK (AT LOC. 1076). 

-* 

Lp eee eee e eR eee Ree REA EAE RAE E EERE RARER AERA ARERR TEER EERE ES 

TST32: SCOPE 

1$: MOVB #6, KDPDR4S 7MAKE KDPDR4 RESIDENT 


CLR aAPSwW SET PREVIOUS = CURRENT = KERNEL 

MOV #STACK RO 7SETUP VALUE FOR STACK POINTER 

MOV RO,KSP ;LOAD STACK POINTER 

MFP] KSP :THE VALUE ‘‘STACK’’ SHOULD BE PUSHED BEFORE BEING DEC"D 


MOV (KSP) .R1 ‘READ DATA WHICH WAS PUSHED 
CMP RO,R1 ‘WAS THE ORIGINAL VALUE OF THE STACK POINTER PUSHED? 
BEQ 2$ BRANCH IF YES 
ERROR +37 MFPI FETCHED WRONG DA TA 
-FOR TIGHTER SCOPE LOOP, REPLACE "Bed oe WITH ‘BR 1$'' = 000767 
2$: TST -(RO) sSETUP EXPECTED STACK POINTER VALUE 


CMP KSP.RO WAS ine STACK POINTER DECREMENTED? 
BEQ 3$ BRANCH IF YES 

ERROR +25 STACK_NOT PUSHED BY THE MFPI 

-FOR TIGHTER SCOPE LOOP, REPLACE BeOS 3$'' wITH ‘BR 1$'' = 000760 

S$: MOV #STACK ,KSP :RESTORE STACK POINTER 


pa 


- tad 


—e=e=e=eeeeeeee______e_OO_VoOV38_V3_ 
a | 
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SEQUENCE 127 
T # 33 = MFPD (SUPERVISOR) WITH SUPER D=SPACE ENABLED 


3914 


—gte Se Ge Se He He He Se Be Be Se 


oe Be Be 
ww peeeeeeeees: 


» SBTTL TEST # 33 = MFPD (SUPERVISOR) WITH SUPER D-SPACE ENABLED 


RARE ERA EAE EAA AAEEAEERARAAAARAAAAAAEAAAEAEEEAERERAAERAERETEEE 


:STEST 33 MFPD (SUPERVISOR) WITH SUPER D-SPACE ENABLED 


THIS yA ie TO SEE THAT THE REFERENCE yy Y D=-SPACE IF THE INSRUC- 
TION IS AN MFPD. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE MFPDTS, 
WHICH USES THE MFPD INSTRUCTION CODE FOLLOWING THE JSR CALL TO EXECUTE 
THE TEST. *IMPORTANT® = ALL "NOP'S'* FOLLOWING MFPD'S OF MODES 1.2, 

4 AND 5 ARE TO BE LEFT ALONE. THE SUBROUTINE LOADS THE TWO WORDS 
AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 


re THE CORRECT MODE IS NOT ENABLED, A NON-RESIDENT ABORT WILL OCCUR 
TRAP TO MFPDV1, WHERE THE ERRORS ARE REPORTED. 


RARE RAE EREE EEE AREER ARARRERAARAEEAREEEERAAREEEEEAEEEEE 


033224 133: SCOPE 
3915 033226 012737 000600 172270 MOV #600, SDPAR MAP SDPAR4 TO 12k 
3916 033234 012700 077400 20$: MOV #77400,RO TAKE PAGE 4 IN ALL BUT SUPERVISOR D 
3917 ZAND KERNAL I NON-RESIDENT 
3918 033240 010037 172330 MOV RO.KDPDR& “KERNAL D=SPACE PAGE 4 
3919 033244 010037 172210 MOV RO.SIPDR4 SSUPERVISOR I-SPACE PAGE 4 
3920 033250 010037 177630 MOV RO.UDPDR4 “USER D=-SPACE PAGE 4 
3921 033254 010037 177610 MOV RO, UIPDR4 SUSER I-SPACE PAGE 
3922 033260 012737 077406 172230 MOV #77406,SDPDR4  :MAKE SDPDR4 RESIDENT 
3923 033266 012700 036514 MOV #36514_RO “LOAD DATA PATTERN INTO RO 
3924 033272 010037 1 MOV RO, a" ‘LOAD DATA PATTERN INTO PHYS. 100000 
3925 033276 052737 172516 BIS #111 MARS “ENABLE SUPERVISOR D-SPACE 
3926 033304 105037 172310 CLRB —«KIPDR4 “MAKE KERNAL I-SPACE PAGE 4 NON-RESIDENT 
3927 :THE FOLLOWING WILL TEST DSTM=1 MFPD 
3928 033310 012737 002760 001110 MOV WF PDLP RR :SET LOOP ON ERROR POINTER TO MFPDLP IN SUBROUTINE 
3929 033316 012737 010340 002762 MOV #010340.MFPDPS MOVE PREVIOUS MODE=SUPERVISOR TO LOCATION IN SUBRTN 
3930 033324 012737 033456 003030 MOV #MEPDV1_MFPDVC =PUT ADDRESS OF THIS TEST'S MM TRAP CATCHER IN MFPDVC 
3931 033332 012702 MOV #100000,R2 “LOAD VIRTUAL ADDRESS INTO R2 
3932 033336 004737 002736 JSR PC ,MFPDTS *GO DO TEST USING THE MFPD INSTRUCTION LOCATED 
3933 033342 106512 MFPD —s- (R2) *<HERE - READ FROM PHYSICAL 100000 

033 000240 NOP ‘NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
3935 033346 104037 ERROR +37 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
3936 033350 005726 TST (SP)+ ‘POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
3937 :THE FOLLOWING WILL TEST DSTM=2 MFPD 
3938 033352 012702 100000 MOV #100000 ,R2 :LOAD VIRTUAL ADDRESS INTO R2 
3939 033356 737 002736 JSR PC .MFPDTS *G0 DO TEST USING THE MFPD INSTRUCTION LOCATED 
3940 033362 106522 MFPD = (R2)+ S<HERE - READ FROM PHYSICAL 100000 
3941 033364 240 NOP ‘NOT MODE 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
3942 033366 104037 ERROR +37 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
3943 033370 005726 TST (SP) + “POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
3944 sTHE FOLLOWING WILL TEST DSTM=3 MFPD 
3945 033372 012702 100000 MOV #100000,R2 :LOAD VIRTUAL ADDRESS INTO R2 
3946 033376 737 002736 JSR PC MF PDT *GO0 DO TEST USING THE MFPD INSTRUCTION LOCATED 
3947 033402 106527 100000 MFPD  a#100000 *<HERE - READ FROM PHYSICAL 100000 
3948 033406 104037 ERROR +37 ‘WRONG DATA WAS FETCHED 
3949 033410 005726 TST (SP)+ ‘POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
3950 STHE FOLLOWING WILL TEST DSTM=4 MFPD 
3951 033412 012702 190002 MOV #100002,R2 :LOAD VIRTUAL ADDRESS INTO R2 
3952 033416 737 002736 JSR PC .MFPDTS 60 Do TEST USING THE MFPD INSTRUCTION LOCATED 
3953 033422 106542 MFPD = =(R2) *<HERE - READ FROM PHYSICAL 1 
3954 033424 240 NOP “NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE L 
3955 033426 104037 ERROR +37 “RETURN IS HERE FOR ERROR ~ WRONG DATA WAS FETCHED 












=r 11/44 MEM MGMT PRT B MACRO M1113 28-MAR-81 04 PAGE bs SEQUENCE 128 
T # 33 = MFPD (SUPERVISOR) WITH SUPER D-SPACE ENABLED 


3956 033430 903748 TST (SP)+ :POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
3957 033432 042737 00002 172516 BIC #B1T1,MMR3 DISABLE SUPERVISOR D=-SPACE 

3958 033440 012700 077406 MOV #77406 ,RO SET UP RO FOR 4K RESIDENT R/W 

3959 033444 010037 172310 MOV RO, KIPDR4 [MAKE KIPAR4 RESIDENT 

3960 033450 010037 177630 MOV RO,UDPDRS — [MAKE UDPDR4 RESIDENT 


3961 033454 000423 BR TST34 ;;BRANCH TO NEXT TEST 
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MM TRAP HANDLER FOR THE ABOVE TEST 


SBTTL MM TRAP HANDLER FOR THE ABOVE TEST 


3964 033456 013737 177572 001264 MFPDV1: MOV MMRO , WASSRO SAVE MMRO FOR ERROR TYPEOUT 

3965 033464 013737 177574 001266 MOV MMR1 ,WASSR1 [SAVE MMR1 FOR ERROR TYPEOUT 

3966 033472 013737 177576 001270 MOV MMR2 , WASSR2 7SAVE MMR2 FOR oe TYPEOUT 

3967 033500 012637 001260 MOV (kSP5+,TRAPPC ;SAVE PC & PS OF T 

3968 033504 012637 001262 MOV (KSP) +, TRAPPS 

3969 033510 104040 ERROR +40 ; TRIED TO READ NON-RESIDNT PAGE 

3970 FOR TIGHTER SCOPE LOOP, REPLACE 1ST MOV INSTRUCTION WITH AN ‘RTI‘* = 000002 
3971 033512 013746 001¢42 MOV TRAPPS,-(KSP)  ;PUT PC & PS OF TRAP ON STACK 

3972 033516 013746 001260 MOV TRAPPC ,=(KSP) 


3973 033522 00000¢ RTI ;RETURN TO TEST 


en 
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# 34 = MFPI (USER/PREV USER) WITH USER DSPACE ENABLED 


3985 - SBTTL TEST # 34 = MFPI (USER/PREV USER) WITH USER D-SPACE ENABLED 


FRRAAAAAAAAA RAAT A RTARTA AAA AAAAAA AAA AAA AAAAAAEAAAA AANA ERA R AERA EES 


:*TEST 34 MFP] (USER/PREV USER) WITH USER D-SPACE ENABLED 
ce THIS TEST CHECKS THAT IF THE INSTRUCTION IS AN MFPI AND BOTH THE 
:* PRESENT AND PREVIOUS MODES ARE USER, THEN D-SPACE IS USED Ha IT Is 
* ENABLED. IN THIS WAY AN OPERATING SYSTEM CAN MAKE PROPRETARY CODE 
;* FPXECUTE ONLY’' FOR THE USER. 
**® 
:* IF THE CORRECT MODE IS NOT ENABLED, A NON-RESIDENT ABORT WILL OCCUR AND 
te TRAP TO MFPIV6, WHERE THE ERRORS ARE REPORTED. 
** 
Eee bade lalalalaleielebabalalalaleiaiedel 
033524 000004 1ST34: SCOPE 
3986 033526 012737 000600 177670 MOV #600, UDPARS MAP UDPAR4 TO 12K 
3987 033534 012700 036514 MOV #36514,RO “LOAD DATA PATTERN INTO RO 
3988 033540 010037 100000 MOV RO, a#100000 ‘LOAD DATA PATTERN INTO PHYS. 100000 
3989 033544 052737 000001 172516 BIS #81T0,MMR3 ;ENABLE USER D-SPACE 
3990 033552 105037 172230 CLRB SDPDR4 MAKE SDPDR4 NON-RESIDENT 
3991 033556 105037 172310 CLRB  —s KIPDR4 “MAKE KERNAL I-SPACE PAGE 4 NON-RESIDENT 
3992 : THE FOLLOWING WILL TEST DSTM=1 MFPI 
3993 033562 012737 002506 001110 MOV P,$LPERR ;SET LOOP ON ERROR POINTER TO MFPILP IN SUBROUTINE 
3994 033570 012737 170340 002510 MOV 170340. MFPIPS :SET PREVIOUS AND CURRENT MODE TO LOCATION IN SUBRTN 
3995 033576 012737 033730 002612 MOV WME PIV6.MEPIVC :PUT ADDRESS OF THIS TEST’S TRAP CATCHER IN MFPIVC 
3996 033604 012702 100000 MOV #100000,R2 ‘LOAD VIRTUAL ADDRESS INTO R2 
3997 033610 004737 002454 JSR PC .MFPITS *GO0 DO TEST USING THE MFPI INSTRUCTION LOCATED 
3998 033614 006512 MFP] (R2) S<HERE - READ FROM PHYSICAL 100000 
3999 033616 000240 NOP :NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
4000 033620 104037 ERROR +37 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 


4001 033622 005726 TST (SP) + :POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
THE FOLLOWING WILL TEST DSTM=2 MFP I 

4003 033624 012702 100000 MOV #100000 ,R2 ;LOAD VIRTUAL ADDRESS INTO R2 

4004 033630 004737 002454 JSR PC ,MFPITS :GO DO TEST USING THE “he INSTRUCTION LOCATED 

4005 033634 006522 MFP I (R2)+ 7<HERE - READ FROM PHYSICAL 100000 

4006 033636 000240 NOP :NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 

4007 033640 104037 a = RETURN IS HERE FOR ERROR - WRONG DATA — FETCHED 

4008 033642 005726 TST (SP)+ :POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 


7THE FOLLOWING WILL TEST DSTM=3 MFPI 
MOV #100000 ,R2 ‘b 


100000 LOAD VIRTUAL ADDRESS INTO R2 
4011 033650 004737 002454 JSR PC .MFPITS O DO TEST USING THE MFPI INSTRUCTION LOCATED 


4012 033654 006537 100000 MFP I avi 7<HERE - READ FROM PHYSICAL 1 

4013 033660 104037 ERROR th TRETURN IS HERE FOR ERROR - WRONG DATA _“ FETCHED 
4014 033662 005726 TST (SP)+ “POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
4015 ; THE FOLLOWING with TEST DSTM=4 MFPI 

4016 033664 012702 100002 MOV #100002 .R2 7LOAD VIRTUAL ADDRESS INTO R2 

4017 033670 004737 002454 JSR PC. MFP ITS 3G0 DO TEST USING THE MFPI INSTRUCTION LOCATED 
4018 033674 006542 MFP I ~(R2) T<MERE - READ FROM PHYSICAL 100000 

4019 033676 000240 NOP [NOT MODE 6 ° 7 - NEEDED FOR SUBROUTINE LOAD 
4020 033700 104037 ERROR +37 SRETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
4021 033702 005726 TST (SP)+ [POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
rr 033704 042737 000001 17E3 16 BIC ey 1T0, MMR — DISABLE USER D-SPACE 

4023 033712 012737 000340 177776 MOV #340,PS ZMAKE PRESENT MODE KE 

4024 033720 112737 000006 172310 MOVB a jePoR iMAKE KIPDR4 RESIDENT 

4025 033726 000423 TST3 7 BRANCH TO NEXT TEST 


4045 


033776 


01 
005726 








CKKTBCO_11/44 MEM MGMT PRT B 
TEST # 35 = TEST CSM INSTRUCTION = ILLEGAL KERNEL MODE 


172516 
177776 
000010 
034032 
177572 


001204 
177572 
177776 
034032 


001204 
000010 


000010 


¢ 11 
MACRO M1113 28-MAR-81 13:04 . PAGE 99 


SEQUENCE 


. SBTTL TEST # 35 = TEST CSM INSTRUCTION = ILLEGAL KERNEL MODE 


RRR ERE REE EEE EERE EAE AERA 


TEST CSM INSTRUCTION = ILLEGAL KERNEL MODE 


TEST 35 


POT TTOT TTT TITTLE I TEE Ld hl d hdd dehdelekchehehchcheheleheheheieiaiaioietel 
THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 
INSTRUCTION TO MAKE SURE CSM IS ILLEGAL WHEN DISABLED 


1$: 


2$: 


IN KERNEL 


«eR RHRERERERERERERERERERERERE REAR RARER REERRR EERE R EERE 
© ERR REA EE EAE ERREREEREREEEREEE 


PSW 
RESVEC,STMP3 
#1$,RESVEC 


MMRO 


$TMP3 ,RESVEC 
MMRO 


PSW 

#1$, (SP)+ 
(SP)+, (SP) + 
41 


+ 
TST36 
(SP) + 


jMAKE SURE MMR3 IS CLEARED. DISABLING CSM 
[MAKE SURE PSW PREVIOUS=CURRENT=KERNEL 
SAVE TRAPS TO 10 VECTOR 

+ TRAPS TO 10 GO TO 1$ 

; TURN ON MEMORY MANAGEMENT 


7CSM RO 
:RESTORE TRAPS TO 10 VECTOR 
:T OFF MEMORY MANAGEMENT 
[RETURN TO KERNEL MODE 
7SEE IF IT WAS AN EXPECTED TRAP 
[BRANCH TO RESTORE STACK IF IT WAS 
CORRECT STACK 
- ILLEGAL CSM DID NOT TRAP TO 10 

CH AROUND STACK CORRECTION 
: CORRECT STACK 


132 
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ST # 36 = TEST CSM INSTRUCTION = ILLEGAL SUPERVISOR MODE 


4068 . SBTTL TEST # 36 = TEST CSM INSTRUCTION = ILLEGAL SUPERVISOR MODE 


RRR ERERRERERERERERAAEREEREEREREEEEERAEREEEAEEEERERERERE 


;*TEST 36 TEST CSM INSTRUCTION = ILLEGAL SUPERVISOR MODE 


UREA E REA E RARER REAR RERA REAR AERA ERA EER RARE ES 


t THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 
zs INSTRUCTION TO MAKE SURE CSM IS ILLEGAL WHEN DISABLED 
:* IN SUPERVISOR MODE . 
pL RARER RRR RARER EEE ERA RRR RARER ERE RREERERRRER EERE RRA EES 
sR ARERR RARER EE CREA EERE RAR RARER RAE RAERRERR ERE RARE ESS 
034066 000004 15136: SCOPE 
4069 034070 005037 172516 CLR MMR MAKE SURE MMR3 IS CLEARED, DISABLING CSM 
4070 034074 052737 040000 177776 BIS #40000 ,.PSW “G0 TO SUPERVISOR MODE 
4071 034102 013737 000010 001204 MOV RESVEC.$TMP3  : SAVE _TRAPS TO 10 VECTOR 
4072 034110 012737 034124 000010 MOV #1$,RESVEC STRAPS TO 10 GO TO 1$ 
4073 034116 005237 177572 INC mmr : TURN ON MEMORY: MANAGEMENT 
4074 034122 007000 CSMO CSM RO 
4075 034124 013737 001204 000010 18: MOV STMP3,RESVEC  :RESTORE TRAPS TO 10 VECTOR 
4076 034132 005037 177572 CLR MRO ; TURN, OFF MEMORY MANAGEMENT 
4077 034136 005037 177776 CLR PSW GO BACK TO KERNEL 
4078 034142 022726 034124 CMP #1$, (SP)+ [SEE IF IT WAS AN EXPECTED 1 
4079 034146 001403 BEQ 2$ BRANCH AROUND ERROR CALL IF ROT WAS 
4080 034150 022626 CMP (SP)+,(SP)+ [CORRECT STACK 
4081 034152 104041 ERROR +41 SILLEGAL CSM DID NOT TRAP TO 10 
4082 034154 000401 BR TS137 : BRANCH AROUND STACK CORRE TION 


4083 034156 005726 2$: TST (SP) + SCORRECT STACK 
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B 
# 37 = TEST CSM INSTRUCTION = ILLEGAL USER MODE 
4091 » SBTTL TEST # 37 = TEST CSM INSTRUCTION = ILLEGAL USER MODE 


RRR AREER ERERAEEREREEERERERREEEREERARREERRERAREREREEEE 


;*TEST 37 TEST CSM INSTRUCTION = ILLEGAL USER MODE 


INSTRUCTION TO MAKE SURE CSM IS ILLEGAL WHEN DISABLED 
IN USER MODE. 


REAR ARA EEE EEEEE EEE ERRERREEEREAERRERERERRREEER 
RRR RARE EERE REEAEEERERERAREREERERERREREREEREREEEEES 


4106 034250 


a 


000401 
005726 


177776 


MMR3 
#140000 ,PSwW 


#1$,RESVEC 
INC muro 


1$: MOV $TMP3 ,RESVEC 
MMRO 


PSW 

#1$,(SP)+ 

CMP (SP) +, (SP)+ 
+41 


TST40 


BR 
2s: TST (SP) + 


eee ete rT hl ielaledelaleieleieieiaiaiaiale 
; THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 


RESVEC, $TMP3 


MAKE SURE MMR3 IS CLEARED, DISABLING CSM 
"60 TO USER MODE 
3 SAVE TRAPS TO VECTOR 
; TRAPS TO 10 GO TO 1$ 
ON MEMORY MANAGEMENT 


iC RO 
; RESTORE TRAPS TO 10 pe Ba 
; TURN OFF MEMORY MANAGEMENT 
[RETURN TO KERNEL MODE 
;SEE IF IT WAS AN EXPECTED T 
H AROUND ERROR CALL IF aT WAS 


+ ILLEGAL CSM DID NOT TRAP TO 10 
;;BRANCH AROUND STACK CORRECTION 
> CORRECT STACK 


BRANCH 
; CORRECT STACK 
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TEST # 40 = TEST CSM INSTRUCTION = ILLEGAL KERNEL MODE 


| 
| 4114 » SBTTL TEST # 40 = TEST CSM INSTRUCTION = ILLEGAL KERNEL MODE 
| 


REE RARERARAERAEREREE EERE AERARRAAEEEEEERAERARAREREAEERAAAEE 
TRTEST 40 TEST CSM INSTRUCTION = ILLEGAL KERNEL MODE 
M4 RRR EERAARAREEREEAE AAA ERREERERERRERERARRERREEEEEEEE 
:* THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 
3s INSTRUCTION TO MAKE SURE CSM IS ILLEGAL WHEN ENABLED 
:* IN KERNEL MODE. 
LARA RRRRERRR EERE RRRR EERE REE R ERE R TERRE RRR R TREE R ERENT 
FURR AREER AAAA EAA REAR AAA R RAR ERAAERRRERRRRRRRAERAE RARER ASAE 
034252 000004 S140: SCOPE 
4115 034254 052737 000010 172516 BIS #8173, MMR 3 ; TURN ON CSM ENABLE 
4116 034262 005037 177776 CLR “MAKE SURE PSW PREVIOUS=CURRENT=KERNEL 
4117 034266 013737 000010 001204 MOV RESVEC,STMP3 7 SAVE_TRAPS TO 10 VECTOR 
4118 034274 012737 034310 000010 MOV #1$,RESVEC ;TRAPS TO 10 GO TO 1$ 
4119 034302 005 177572 INC mmr TURN ON MEMORY MANAGEMENT 
4120 034306 007 CSMO :CSM RO 
4121 034310 013737 001204 000010 18: MOV STMP3,RESVEC  :RESTORE TRAPS TO 10 VECTOR 
4122 034316 005037 177572 CLR MMRO TURN OFF MEMORY MANAGEMENT 
4123 034322 022726 034310 CMP #1$,(SP)+ [SEE IF IT WAS AN EXPECTED TRAP 
4124 034326 001403 BEQ 2$ “BRANCH AROUND ERROR CALL IF IT WAS 
4125 034330 022626 CMP (SP)+, (SP) + [CORRECT STACK 
4126 034332 104041 ERROR +41 SILLEGAL CSM DID NOT TRAP TO 10 
4127 034334 000401 BR TST41 : BRANCH AROUND STACK CORRECTION 


4128 034336 005726 2s: TST (SP) + :CORRECT STACK 





ee EE + ee 
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TEST # 41 = TEST CSM INSTRUCTION = I=SPACE SUPERVISOR MODE ate 


4137 . SBTTL TEST # 41 = TEST CSM INSTRUCTION = I=SPACE SUPERVISOR MODE 


rs 
; 
| WOTUTTTTITITITITIII TLL LLL LLL 
SR TEST 41 TEST CSM INSTRUCTION ~ I=SPACE SUPERVISOR MODE 
+ eee RR ERAT AAERERARAAAAAA RARER EKER KARR ARTA ATA ATT eee 
* THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 
* INSTRUCTION TO MAKE SURE CSM IS LEGAL WHEN ENABLED 
* N SUPERVISOR MODE, AND FOR A CHECK OF THE PARAMETERS 
* USHED ON THE STACK. 
i 


REE ARER EEE EERR EEE EREEREEREREREREERERERAREEREAEH 
RARER EERE AERA EREERREREEEH ERE 


034340 000004 141: SCOPE 
4138 034342 012700 052525 MOV #52525,RO sSET UP RO 
4139 034346 004737 002050 JSR PC APRINIT SRESET ALL MEMORY MANAGEMENT REGISTERS 
4140 034352 012737 000600 172260 MOV #600, SDPARO ‘IF WE GO TO D-SPACE, FLAG AS AN ERROR 
4141 034360 012737 000032 172516 MOV #32 ,MMR3 “ENABLE CSM, 22-BIT, SUPERVISOR SPACE 
4142 034366 012737 040000 035212 MOV #40000,PCSMPS :SET PRECSM PS IN LOCATION 
4143 034374 012706 000700 MOV ASUPSTK,SSP + SETUP SUPERVISOR STACK POINTER 
4144 034400 004737 034422 JSR PC, CSMSUB ‘TEST CSM INSTRUCTION SUBROUTINE 
4145 034404 000000 “WORD 0 * 0 ADDED TO ADDRESS OF TRAP VECTOR 
4146 034406 005037 177776 CLR PSw “RETURN TO KERNEL MODE 
4147 034412 005037 172260 CLR SDPARO ;RESET SDPARO TO FIRST 4K 


4148 034416 000137 035236 JMP TST42 ; JUMP OVER THE CSM SUBROUTINE 
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iP oP 
—_— td od 
NNN 
Wh-= 
ooo 
eRe 
Wuw 
aww 
MON 
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012605 CSMSUB: MOV : 
012737 340 177776 MOV #340,PSw 
010037 035216 MOV RO,PCSMRO 
012504 MOV (R5)+,R4 
010537 035234 MOV RS RETURN 
012737 034576 035210 MOV #5$, DOWELP 
12764 034514 000010 MOV #2$,RESVEC(R4) 
012737 034506 001110 MOV #1$,$LPERR 
053737 035212 177776 BIS PCSMPS ,PSW 
010637 035214 MOV SP,PCSMSP 
162737 000006 035214 SUB #6,PCSMSP 
005237 177572 1$: INC MMRO 
012737 000012 000010 2%: MOV MRESVEC+2,RESVEC; 
022716 034514 CMP #2$, (SP) 
001011 BNE 4$ 
012737 000340 177776 38: MOV #340,PSwW 
005037 177572 CLR MMR 
022626 CMP (SP)+, (SP)+ 
104051 ERROR +51 
000177 62 JMP @RE TURN 
010637 035230 4$: MOV SSP,ACSMSP 
012637 035220 MOV (SP) +,CSM1ST 
012637 035222 MOV (SP) +, CSM2ND 
012637 035224 MOV (SP) +, CSM3RD 
17 41 JMP OwELP 
013703 035212 S$: MOV PCSMPS ,R3 
042703 037777 BIC #37777.R3 
000241 CLC 
ROR R3 
003 ROR 3 
052703 BIS #BIT14,R3 
013737 177776 035226 MOV PSwW,ACSMPS 
042737 007777 035226 BIC #7777, ACSMPS 
020337 035226 CMP R3,ACSMPS 
001403 BEQ 6$ 
005037 177572 CLR MMRO 
104042 ERROR +42 
052737 001 177572 6$: BIS #84 T00,MMRO 
013737 177776 035226 MOV PSW,ACSMPS 
042737 037777 035226 BIC #37777 ,ACSMPS 
023737 035232 035226 CMP SUPERM,ACSMPS 
001414 BEQ 2g 
012737 034650 035210 MOV #6$, DOWELP 
005037 177572 CLR mmMRO 
013703 035226 MOV ACSMPS ,R3 
052703 040000 BIS #BIT14.R3 
042703 100000 BIC #B1T15,R3 
104042 ERROR 
052737 177572 8% BIS #81T00,MMRO 
04 177776 MOV 


04 +42 
4199 034732 000001 : a 
4200 034740 0137 PSW,R4 
4201 034744 042704 4 
4202 034750 006304 RS 
4203 034752 006304 R4 
4204 034754 ' 
4205 034760 2702 ‘ 


#147777,R4 


PCSMPS ,R2 
#37777 ,R2 


SEQUENCE 137 


- SBTTL fem TO sae? 1 OPERATION OF AN EXECUTABLE CSM INST‘N 


RETURN ADDRESS INTO R5 
KERNEL MODE 
STORE PRECSM RO 
SMOVE OFFSET TO R4& 
7SET RETURN LOCATION ADDRESS TO LOCATION _ 
[MOVE ADDRESS FOR INITIAL TESTING TO DOWELP 
SETUP TRAPS TO 10 VECTOR TO 2$ 
:SETUP LOOP ON ERROR TO 1$ 
[PUT USER/SUPERVISOR IN THE ‘> 
‘MOVE STACK POINTER VALUE TO PCSM 
ay ly 6 FROM PCSMSP = pan? rf PUSHES ON STACK 
; TURN ON MEMORY MANAGEMENT 


RESTORE TRAPS TO 10 VECTOR 

SEE IF CSM ABORTED 

SBRANCH IF IT DIDN'T TO ie TEST 
GO BACK TO KERNEL PRIORITY 7 

URN OFF MEMORY MANAGEMENT 


a7 
[CORRECT STACK 


CSM ABORTED WHEN IT SHOULD NOT HAVE 
: JUMP TO ADDRESS PRESTORED IN LOCATION RETURN 
SAVE AFTER CSM STACK POINTER 
:POP 1ST WORD OFF STACK 
POP 2ND WORD OFF STACK 
‘POP 3RD WORD OFF STACK 
; JUMP TO LOCATION IN DOWELP 
[PUT PRE-CSM PSW_IN R3 
[WIPE OUT ALL BITS poor <15:14>, 


> THE RIGHT TO <13:12>, 
SAND SET <14>, PUTTING CURRENT=SUPERVISOR IN EXPECTED LOC 
[MOVE CURRENT PSW TO ACSMPS 
jWIPE OUT ALL BITS BUT <15:12> 
7 SEE IF PSwW STATUS BITS MATCHES CALCULATED VALUE 
CH AROUND ERROR CALL IF OK 
TURN OFF MEMORY MANAGEMENT 
[NOT SUPERVISOR MODE 
[MAKE SURE MEMORY MANAGEMENT IS ON 
ZMOVE CURRENT PSW TO ACSMPS 
CLEAR ALL BITS EXCEPT <15:14> 
TSEE IF SUPERVISOR MODE 
BRANCH AROUND ERROR CALL IF OK 
;SET ADDRESS FOR THIS CHECK TO DOWELP 
; TURN OFF MEMORY MANAGEMENT 
SMOVE RECEIVED CONTENTS TO R3 
7SET BIT 14 AND 
CLEAR BIT 15 
:NOT SUPERVISOR MODE 
[MAKE SURE MEMORY MANAGEMENT IS ON 
MOVE CURRENT PSW TO R4 
ca ALL BITS re ns <13:12> 


— - —_—- CK - - C—O  - --—"'("-_ --- - - —- 


| 
| 


| CKKTBCO 
/ SUBROUT 
| 4206 034764 


| £509 034776 


4 35060 
4222 035064 
4 35066 


4241 035204 
4242 
4243 035210 


4253 035234 
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034732 
177572 


000001 
035230 
035004 
177572 
000001 
035220 


035036 
177572 


000001 
034514 
035066 
177572 
034514 


000001 
000017 


035126 
177572 


034576 
001000 
034506 
000024 
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INE TO CHECK OPERATION OF AN EXECUTABLE CSM INST'N 


035210 
177572 
035214 
035210 


177572 
035210 
177572 
035222 
035210 


001176 


177572 
035224 


035210 


035210 
143742 


10$: 


12$: 


14$: 


16$: 


18$: 


R2,R4 

10 

#8$ ,DOWELP 
MMRO 

+43 
#B1T00,MMRO 
+ eaten 
#10$,DOWELP 
MMR20 

+44 
#B1T00,MMRO 
RO,CSMIST 
14$ 
#12$,DOWELP 
MMRO 

+45 
#B1T00,MMRO 
#2$,CSM2ND 
16$ 
#14$,DOWELP 
MMR 
#2$,$TMPO 
+46 
#B1T00,MMRO 
#17,CSM3RD 
18$ 
#16$,DOWELP 
MMRO 


+47 
#5$,DOWELP 
19$ 
#B1T09,aSWR 
19$ 


bo 
m 
“4 
¢. 
P*] 
2 


lor Melolelolelelelojea) 


0000 


SEQUENCE 


SEE IF PREVIOUS MODE IS OK 
[BRANCH AROUND ERROR CALL IF OK 
#SET ADDRESS FOR THIS ae TO DOWELP 
; TURN OFF MEMORY MANAGEMENT 
; WRONG PREVIOUS MODE 
E SURE MEMORY MANAGEMENT IS ON 
‘SEE i STACK POINTER VALUE WAS TRANSFERED 
[BRANCH AROUND ERROR CALL IF SO 
;SET ADDRESS FOR THIS CHECK TO DOWELP 
; TURN OFF MEMORY MANAGEMENT 
; INCORRECT STACK 
MAKE SURE MEMORY MANAGEMENT IS ON 
COMPARE RO. WITH THE ARGUMENT THAT WAS ON STACK 
F EQUAL, (CH AROUND ERROR 


:1F E BRANCH E 
[SET ADDRESS FOR THIS CHECK TO DOWELP 
TURN OFF MEMORY MANAGEMENT 
; INCORRECT ARGUMENT 

MAKE SURE MEMORY MANAGEMENT IS ON 
ZSEE IF UPDATED PC WAS CORRECT 

CH AROUND ERROR IF OK 
SET ADDRESS FOR THIS CHECK TO DOWELP 
; TURN OFF MEMORY MANAGEMENT 
sURONG PC UPDATED PC TO $TMPO 


MAKE SURE MEMORY MANAGEMENT IS ON 
TSEE IF PSW <3:0> WERE CLEARED 
TBRANCH AROUND ERROR CALL IF OK 
SET ADDRESS FOR THIS fae TO DOWELP 
TURN OFF MEMORY MANAGEMENT 
:BITS <3:0> SET IN PSW 
SEE IF ANY ERRORS THIS TIME AROUND 
BRANCH 


TO NORMAL RETURN JUMP IF NOT 
7SEE IF LOOP ON ERROR IS SET 
BRANCH IF SO 
; JUMP BACK 


FOR LOOP ON ERROR 
: JUMP BACK TO RETURN ADDRESS IN LOCATION RETURN 


138 


:LOCATION HOLDING ADDRESS TO SHORTEN POSSIBLE ERROR LOOP 
TO STORE PRE-CSM PSW 


PRE-CSM STACK POINTER 
PRE-CSM RO VALUE 


3RD 
POST-CSM PSW 
POST-CSM STACK POINTER 


LOCATION TO STORE RETURN ADDRESS OF THE CSMSUB 


VALUE OF PRESENT MODE=SUPERVISOR 


AL 
1ST WORD POPPED AFTER CSM EXECUTION 
2ND WORD POPPED AFTER CSM EXECUTION 
WORD POPPED AFTER CSM EXECUTION 


ee oe --— a 
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TEST # 42 = TEST CSM INSTRUCTION = D=SPACE SUPERVISOR MODE 


4262 -SBITL TEST # 42 = TEST CSM INSTRUCTION = D-SPACE SUPERVISOR MODE 
_ TARA AAAAA AERA RARER AERA EAA AAAAEREAAAAAARARAAAARA AAA A ERAT ATES 
Z*TEST 42 TEST CSM INSTRUCTION = D-SPACE SUPERVISOR MODE 
4 {RERAAE ERATE AAA A AAA AERA AERA AAA AA ARERR RARE ERA RA EE ES 
tt THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 
:* INSTRUCTION TO MAKE SURE CSM 18 LEGAL WHEN ENABLED 
:* IN SUPERVISOR MODE, AND FOR A CHECK OF THE PARAMETERS 
:* PUSHED ON THE STACK 
Lee RReeR ERNE RERREREEREREEERERER AREER RARER EARNER RRR R ARERR EE 
PERERA RAR RARER AEE EERER ERA ARERR EREREERARRERRARA AEE E ERE ES 
035236 000004 S142: SCOPE 
4263 035240 012737 000032 172516 MOV #32 ,MMR3 SENABLE 22-B1T, CSM. SUPERVISOR 
4264 035246 012737 040000 035212 MOV #40000,PCSMPS LOAD PRECSM LOCATION 
4265 035254 052737 040000 177776 BIS #B1T14.PSW =GO TO SUPERVISOR MODE 
4266 035262 012737 000600 172240 MOV #600, SiPARO TIF WE GO TO I-SPACE, FLAG IT AS AN ERROR 
4267 035270 012706 000700 MOV #SUPSTK SSP [SETUP SUPERVISOR STACK POINTER 
4268 035274 004737 034422 JSR. —- PC, CSMSUB :TEST CSM INSTRUCTION SUBROUT INE 
4269 035300 060000 : WORD 60000 : 60000 ADDED TO ADDRESS OF TRAP VECTOR 


4270 035302 005037 177776 CLR PSW [RETURN TO KERNEL MODE 
4271 035306 005037 172240 CLR SIPARO RESET SIPARO TO FIRST 4K 
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TEST # 43 = TEST CSM INSTRUCTION = I=SPACE USER MODE 


4280 » SBTTL TEST # 43 = TEST CSM INSTRUCTION = I-SPACE USER MODE 
WOTTTTITI LLL LLL LLL oT 
TRTEST 43 TEST CSM INSTRUCTION = I-SPACE USER MODE 

Sp ReRRRRR ARERR AAA ATA ET ETAT TATA ARATE RE Re RRR AeA ANT AT Tee 
* THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 

* INSTRUCTION TO —_ we CSM IS LEGAL WHEN ENABLED 

* IN USER MODE, Stat —e CHECK OF THE PARAMETERS 

* PUSHED ON THE S 

i 


OOO ten \ Tbe ne WOTTON ETI COTTE DT TOON Ne 


035312 000004 143: SCOPE 

4281 035314 012737 000031 172516 MOV #31, MMR3 sENABLE 22-B1T, CSM USER 

4282 035322 012737 140000 035212 MOV #140000,PCSMPS :LOAD PRECSM LOCATION 

4283 035330 052737 140000 177776 BIS #140000 ,PSW :GO TO USER MODE 

4284 035336 012737 000600 177660 MOV #600, UDPARO ‘IF WE GO TO D-SPACE, FLAG AS AN ERROR 
4285 035344 012706 000600 MOV #USESTK, SSP ‘SETUP USER STACK POINTER 

4286 035350 004737 034422 JSR PC, CSMSUB ;TEST CSM INSTRUCTION SUBROUTINE 

4287 035354 000000 .~ WORD 0 : 0 ADDED TO ADDRESS OF TRAP VECTOR 
4288 035356 005037 177776 CLR PSW *RETURN TO KE 


RNEL MODE 
4289 035362 005037 177660 CLR UDPARO RESET UDPARO TO FIRST 4k 
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TEST # 44 = TEST CSM INSTRUCTION = D=SPACE USER MODE 


4298 .SBTTL TEST # 44 = TEST CSM INSTRUCTION = D=-SPACE USER MODE 
RARER EE EEAAAAAEARERREEAAREEREEEAEERAEARAAEERAEREEEEE 
T*TEST 44 TEST CSM INSTRUCTION = D=-SPACE USER MODE 
3 ERR AAE AERA AAR AA AAA AEE A AAA AAA AAAAAAAR ARERR AAARAAA AERA RATATAT EES 
:* THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 
:* INSTRUCTION TO MAKE SURE CSM IS LEGAL WHEN ENABLED 
:* IN USER MODE, AND FOR A CHECK OF THE PARAMETERS 
* PUSHED ON THE STACK. 
pL RAR AAA AERA AAA AAA EEE E RARER ARE RERARRAERRR A RERRAEEAAER ERE TES 
FERRARA AERA AREA AAA EAE EAA ARERR AAA RRRAREAAEE ERR E RARER EERE 
035 1S744: SCOPE 
035370 012737 000031 172516 MOV #31,MMR3 sENABLE 22-B1T, CSM USER 
4300 035376 012737 140000 035212 MOV #140000,PCSMPS LOAD PRECSM LOCATION 
035404 012737 000600 177640 MOV #600,UIPARO ‘IF WE GO TO I-SPACE, FLAG AS AN ERROR 
4302 035412 012706 000600 MOV MUSESTK, SSP ‘SETUP USER STACK POINTER 
4303 035416 004737 034422 JSR PC, CSMSUB ;TEST CSM INSTRUCTION SUBROUTINE 
4304 035422 000000 .WORD 0 : © ADDED TO ADDRESS OF TRAP VECTOR 
4305 035424 005037 177776 CLR PSw * RETURN E 


TO KERNEL MOD 
4306 035430 005037 177640 CLR UIPARO RESET UIPARO TO FIRST 4k 





035434 
4313 035436 


4353 035700 
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TEST # 45 = TEST CSM INSTRUCTION = MODE T 


4312 


ot od sd 


035654 





040000 177776 
BO00 6 172516 


00 
Beeeie 000010 


177572 
172516 
177776 


007020 007030 


035660 035660 
035654 035660 


MACRO gp it F catiteesdtt 13:04 PAGE "OB. SEQUENCE 142 


- SBTTL TEST # 45 = TEST CSM INSTRUCTION = MODE TESTS 
ep aang yy oe ne ee 
T*TEST 45 TEST CSM INSTRUCTION = MODE TESTS 
THIS TEST EXECUTES THE CSM INSTRUCTION LEGALLY IN MODES 1 THROUGH 7, 


ce 
* CHECKING FOR PROPER REGISTER INCREMENT/DECREMENT AND THAT ARGUMENT 
3° CONTENTS IS PROPERLY ON THE STACK 
Z Z EERE AEAARAERAEERAAAAARAAAAEEARAREARRERERERE 
1S145: SCOPE 
MOV #40000, PSw :G0 TO SUPERVISOR MODE 
MOV #32 ,.MMR3 TENABLE 22-B1T, CSM, SUPERVISOR 
MOV #7,R1 :D0 7 bots” 
MOV #CSMINS,R LOAD CSM INSTRUCTION POINTER INTO R2 
MOV #REGCHG.R :COAD REGISTER CHANGE TABLE POINTER TO R3 
MOV #REGDAT RG “LOAD ARGUMENT EXPECTED STACK POINTER TO R4 
MOV #3$,RESVEC SET RETURNS TO 3$ 
1$: MOV (R2) ,2$ “MOVE CSM INSTRUCTION TO TEST LOCATION 
MOV #REGLAB,RO TRESET RO 
2$: .WORD 0,0 [1ST WORD FOR CSM INSTRUCTION, 2ND FOR MODES 6 & 7 
3$: MOV (SP) ,STMP1 [MOVE ARGUMENT WORD TO $TMP1 
CMP (R3) .RO ‘SEE IF REGISTER CHANGED PROPERLY 
BEQ 4$ [BRANCH IF OK 
ADD #6, SP “POP STACK FOR POSSIBLE ERROR LOOPING 
MOV (R3) , $TMPO ‘MOVE EXPECTED DATA TO $TMPO 
ERROR +52 [CSM FAILED TO INCREMENT/DECREMENT REGISTER PROPERLY 
SUB #6,SP SRESTORE STACK POINTER TO PRE-ERROR STATE 
4$: CMP (R4) ,STMP1 SSEE IF CORRECT ARGUMENT WAS LOADED 
BEQ 5$ “BRANCH IF OK 
MOV (SP) +, $TMP3 “POP STACK FOR POSSIBLE ERROR LOOPING 
MOV (SP) +. $TMP4 
MOV (SP) +. $TMPS 
MOV (RG), $TMP2 sMOVE EXPECTED DATA TO STMP2 
ERROR +53 =CSM FAILED TO PUT PROPER ARGUMENT ON STACK 
MOV $TMPS ,-(SP) SRESTORE STACK = NO ERROR LOOPING 


5$: CMP (R2)+,(R3)+ 7 INCREMENT R2 AND R3_TO NEXT LOCATIONS 
TST (R4)+ S INCREMENT R4 TO NEXT LOCATION 
ADD #6,SP ;POP STACK OF CSM PUSHES 
SOB R1,1$ :SUBTRACT 1 AND BRANCH IF a ALL MODES CHECKED 
CLR MMRO ; TURN OFF MEMORY MANAGEMENT 
CLR MMRS :CLEAR MMR3 
CLR PSW ;RETURN MODE BACK TO KERNEL 
BR SEOP *SKIP OVER TABLES AND LOCATIONS 
CSMINS: .WORD  CSM1,CSM2,CSM3,C5M4,CSM5,CSM6,CSM7 
“WORD REGLAB+2 
REGLAB: .WORD REGLAB-2 
«WORD 52525 
REGCHG: .WORD REGLAB,REGLAB+2,REGLAB+2,REGLAB~2,REGLAB-2,REGLAB,REGLAB 
REGDAT: .WORD REGLAB-2,REGLAB-2, REGLAB+2 ,REGLAB+2,52525, REGLAB~2, REGLAB+2 
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END OF PASS ROUTINE 


4354 -SBTTL END OF PASS ROUTINE 
nee a ae Soe gone ap meen nat me tig seme 
: SINCREMENT THE PASS NUMBER (SPASS 
7*TYPE "END PASS #XXXXX TOTAL NUMBER OF — SINCE LAST REPORT YYYYY"* 
T*WHERE XXXXX AND YYYYY “2 MB. tn NUMBERS 
[*1F SW12=1 INHIBIT TRACE T 
:*IF THERES A MONITOR GO TO aT 
Fe a THERE ISN'T JUMP TO LOOP 


035716 
035716 SCOPE 
20 005037 001102 CLR STSTNA 22 ZERO THE TEST NUMBER 
035724 005237 001232 INC SPASS 5 INCREMENT THE PASS NUMBER 
0357 042737 100000 001232 BIC #100000, S$PASS 3:DON'T ALLOW A NEG. NUMBER 
035736 005327 DEC (PC)+ 3;;LOOP? 
035740 000001 SEOPCT: .WORD 1 
035742 003072 BGT $SDOAGN 77 YES 
035744 012737 MOV (PC) +,a(PC)+ 7 RESTORE COUNTER 
035746 000001 SENDCT: .WORD 1 
035750 035740 SEOPCT 
035752 104401 035760 TYPE ,65$ pbb ASCIZ STRING 
035756 000407 BR 64$ ;GET OVER THE ASCIZ 
3:65$: .ASCIZ <12><15>/END PASS” 4/ 
035776 64$: 
035776 013746 001232 MOV SPASS ,~-(SP) 77 SAVE SPASS FOR TYPEOUT 
3s; TYPE PASS NUMBER 
036002 104405 TYPDS 3:60 TY whet ASCII WITH SIGN 
036004 104401 036012 TYPE ,67$ 33 TYPE ASCIZ STRING 
036010 000421 BR 66$ ;GET OVER THE Me 
::67$: .ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
036054 66$: 
036054 013746 001112 MOV SERTTL,~(SP) : SAVE SERTTL FOR TYPEOUT 
77; TOTAL NUMBER OF ERRORS 
036060 104405 TYPDS ¢260 TYPE=-DECIMAL ASCII WITH SIGN 
036062 104401 001221 TYPE ,SCRLF TYPE CARRIAGE RETURN, LINE FEED 
036066 005037 001112 CLR SERTTL 7 CLEAR ERROR TOTAL 
036072 013700 000042 $GET42: MOV a#42,R0 :GET MONITOR ADDRESS 
036076 001414 BEQ $DOAGN + BRANCH IF NO MONITOR 
036100 005046 CLR -(SP) zs, INSURE THE ‘'T’’ BIT IS CLEAR 
036102 012746 036110 MOV A$CLR.T,-(SP) 7: SETUP FOR AN RTI OR RTT 
036106 000426 BR $RTRN ::GO DO AN RTI OR R RTT TO LOAD THE PSW 
zzWITH A CLEARED ‘'T’' BIT 
036110 $CLR.T: 
036110 013700 000042 MOV a#42,R0 32 INSURE = CONTAINS THE MONITORS 
036114 001405 BEQ $SDOAGN 7 RETURN ADDRESS 
036116 000005 RESET 7:CLEAR THE OUR D 
004710 SENDAD: JSR PC, (RO) 7:G0 TO MONITOR 
036122 000240 NOP 7: SAVE ROOM 
036124 000240 NOP 3 
036126 000240 NOP 72ACT11 
036130 $SDOAGN: 
036130 104400 TRAP zPUSH OLD PSWW AND PC ON STACK 
036132 042716 000020 BIC #20, (SP) S CLEAR THE ‘‘T’’ BIT 
036136 032777 010000 142774 BIT #B1T12,aSwR 7 RUN WITH TRACE TRAP? 
036144 001005 BNE 1$ 7;BR IF NO 
036146 005137 001310 COM $TBIT zr:1S IT TIME FOR TRACE TRAP 
036152 100402 BM] 1 7:BR IF NO 
036154 052716 000020 BIS #20, (SP) 7: SET TRACE TRAP 
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END OF PASS ROUTINE 


012746 036166 #$LOOP ,-(SP) 
000002 


1$: MOV 
S$RTRN: RTI 


SLOOP: 
JMP a(PC)+ 
TNAD: .WORD LOOP 
$ENULL: .BYTE <-1,-1,0 
EVEN 
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3; JUMP TO START OF TEST 

7 RETURN--THIS IS CHANGED TO 
7ZAN ‘RTT’ IF “RTT IS A LEGAL 
7 INSTRUCTION 

7 RETURN 


sNULL CHARACTER STRING 


144 
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S ABLE 
ABASE = 000000 BITOO = 000001 DH14 013026 DT55 015574 KDPAR4= 172370 
ACDW1 = 000000 B1TO1 = 000002 DH15 013106 D157 015606 KDPARS= 172372 
ACDW2 = 000000 BITO2 = 000004 DH16 013146 EMTVEC= 000030 KDPAR6= 172374 ‘ 
AC = 000000 B1703 = 000010 DH17 013226 EM1 007512 , KDPAR7= 172376 
ACSMPS 035226 BITO4 = 000020 He 012536 EM10 007621 KDPDRO= 172320 
ACSMSP 035230 BITOS = 000040 DH20 013306 EM11 007671 KDPDR1= 172322 
= 000000 BITO6 = 000100 DH21 013346 EM12 007740 KDPDR2= 172324 
ADDW1 = 000000 BITO7 = 000200 DH22 013463 EM13 010012 KDPDR3= 172326 
ADDW10= 000000 BITO8 = 000400 DH24 013523 EM14 010063 KDPDR4= 172330 
ADDW11= 000000 BITO9 = 001000 DH26 013563 EM15 010144 KDPDR5= 172332 
ADDW12= 000000 BIT! = 2 DH27 013675 EM16 010227 KDPDR6= 172334 
ADDW13= 000000 BIT10 = 002000 DH30 014072 EM2 007552 KDPDR7= 172336 
ADDW14= 000000 BIT11 = 000 DH32 014146 EM21 010305 KERSTK= 00 
ADDW15= 000000 BIT12 = 010000 DH33 014165 EM22 010352 KIPARO= 172340 
ADDW2 = 000000 BIT13 = 020000 DH34 014225 EM23 010421 KIPARI= 172342 
ADDW3 = 000000 BIT14 = 040000 DH36 014316 EM24 010454 KIPAR2= 172344 
ADDW4 = 000000 BIT15 = 100000 DH37 014356 EM25 010513 KIPAR3= 172346 
ADDWS = 000000 BiT2 = 000004 DH40 014416 EM26 010560 KIPAR4= 172350 
= 000000 BITS = 000010 DH41 014467 EM27 01 KIPARS= 172352 
ADDW7 = 000000 BIT4 = 000020 DH42 014573 EM30 010703 KIPAR6= 172354 
= 000000 BITS = 000040 DH43 014633 EM31 010746 KIPAR7= 172356 
Dw9 = 000000 BIT6 = 000100 DH44 014703 EM32 011011 KIPDRO= 172300 
_ADEVCT= 000000 BIT? = 000200 DH45 014743 EM33 011047 KIPDR1= 172302 
ADEVM = 000000 BIT8 = 000400 DH55 014773 EM34 011125 KIPDR2= 172304 
AENV = 000000 BIT9 = 001000 DH57 015032 EM35 011206 KIPDR3= 1 
AENVM = 000000 BPTVEC= DISPLA 001142 EM36 011242 KIPDR4= 172310 
AFATAL= 000000 CKSWR = 104410 DISPRE 0001 EM37 011317 KIPDRS5= 172312 
AMADR1= 000000 CMSG 005351 DOWELP 035210 EM4O 011362 KIPDR6= 172314 
AMADR2= 000000 CNTRLC 005272 DSWR = 177570 EM41 011447 KIPDR7=_ 172316 
3= 000000 CPSAVE 003256 DT1 015072 EM42 011513 KSP =% 
AMADR4= 000000 CPUERR= 177766 DT10 01513 EM43 011556 LF = 12 
AMAMS 1= 000000 C = 00001 DT12 015142 EM44 0176235 L 020456 
AMAMS2= 000000 CRLF = 0002( DT13 015160 EM45 011671 MFPDLD 002774 
= 000000 CSMINS 035636 DT14 015176 EM46 011730 MFPDLP 002760 
= 000000 CSMSUB 034422 DT15 015214 EM47 011772 MFPDPS 002762 
AMSGAD= 000000 C = 007 DT16 015226 EM5O 012031 MFPDTS 002736 
AMSGLG= 000000 CSM1 = 007010 DT17 015244 EM51 012060 MFPDVC 0030 
AMSGTY= 000000 CSM1ST 035220 DT2 015110 EM52 012116 MFPDV1 033456 
AMTYP1= 000000 CSM2 20 DT20 015262 EMS3 012142 MFPILD 002522 
AMTYP2= 000000 CSM2ND 035222 DT21 015274 EMS4 012207 MFPILP 0025 
AMTYP3= 000000 CSM3__= 007030 DT22 015312 EMSS 01225 MFPIPS 002510 
AMTYP4= 000000 CSM3RD 035224 DT24 015324 EM56 012317 MFPITS 002454 
APASS = 000000 CSM4 = 007040 DT26 015336 EMS7 012403 MFPIVC 002612 
APRINI 002050 CSMS5 = 007050 DT27 015354 ERLOOP 002614 MFPIV1 027460 
= 000000 CSM6 = 007060 DT30 015372 ERPREP 002434 MFPIV2 030056 
APTCSU= 000040 CSM7_ = 007070 DT32 015404 ERROR = 104000 MFPIVS 031566 
APTENV= 000001 = 177570 D134 015412 ERRTYP 003640 MFPIV4 032176 
APTS1Z= 000200 DF1 015620 D136 015426 ERRVEC= 000004 MFPIVS 032454 
APTSPO= 000100 2 015643 D140 015440 GTSWR = 104407 MFPIV6 033730 
ASWREG= 000000 DF2 015625 DT41 015450 HT = 011 MGMERR 015726 
ATESTN= 000000 DF 3 015634 DT42 015464 IBSAVE 003636 MGMFLG 015730 
AUNIT = 000000 DF 32 015651 DT43 015476 NIT 20564 MMRO = 177572 
AUSWR = 000000 DF5 015640 DT45 015512 IOTVEC= 20 MMR1 = 177574 
AVECT1= 000000 DH1 012456 DT46 015526 KDPARO= 172360 MMR2 = 177576 
AVECT2= 000000 DH10 012626 D147 015540 KDPAR1= 172362 3 = 172516 
BADPC 001304 DH1 01 DT50 015552 KDPAR2= 172364 MMVEC = 000250 
BITO = 000001 DH13 012746 DT52 015564 KDPAR35= 172366 MIPILD 002666 
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MTPILP 002644 SDPDR1= 172222 SWw6 = 000100 TYPE = 104401 $CLR.T 036110 
MTPIPM 002646 SDPDR2= 172224 SWw7 == 000200 TYPOC = 104402 $CMTAG 001100 
MIPITA 002710 SDPDR3= 172226 Sw8 = 000400 TYPON = 104404 $cmMi = 000006 
MTPITS 002616 SDPDR4= 172230 Sw9 = 001 TYPOS = 104403 $CM2 = 000014 
MIPIVC 002734 SDPDRS= 172232 TBIT = 000020 UDPARO= 177660 $cM3 = 000006 
MTPIV1 030506 SDPDR6= 172234 TBITPS 00127 UDPAR1= 177662 $cmM4 = 000006 
MTPIV2 031152 SDPDR7= 172236 TBITVE= 000014 UDPAR2= 177664 SCNTLC 001312 
MTPIVS 032714 SIPARO= 172240 TESTNO 001254 UDPARS= 1 SCNTLG 5243 
MTIPIV4 033134 SIPARI= 172242 . TIMERR 015654 , UDPAR4= 177670 SCNTLU 5 
NDFLAG 002232 SIPAR2= 172244 TIMFLG 015656 UDPARS= 177672 001252 
NODSPA 002222 SIPAR3S= 172246 TKVEC 5 060 UDPAR6= 177674 SCRLF 1221 
PATCH 016016 SIPAR4= 172250 TOF F 002346 UDPAR7= 177676 $DBLK 006752 
I 001302 SIPARS= 172252 TON 02402 UDPDRO= 177620 $ 007056 
PBALO 1 SIPAR6= 172254 TPVEC = 000064 UDPDR1= 177622 S$DEVCT 001234 
PCSMPS 035212 SIPAR7= 172256 TRAPPC 001260 UDPDR2= 177624 SDOAGN 036130 
PCSMRO 035216 SIPDRO= 1722 TRAPPS 001262 UDPDR3= 177626 $DTBL 
P 035214 SIPDR1= 172202 TRAPVE= UDPDR4= 177630 SENDAD 
PFECDF 272 SIPDR2= 172204 TRIVEC= UDPDR5= 177632 SENDCT 035746 
PFECDH 004232 SIPDR3= 1722 TST1 020602 UDPDR6= 177634 SENULL 036172 
PFECDT 604262 SIPDR4= 172210 TST10 3052 UDPDR7= 177636 SENV 001244 
PFECEM 004172 SIPDR5= 172212 TST11 023354 UIPARO= 177640 SENVM = 001245 
PFECWS 004162 SIPDR6= 172214 TST12 023444 UIPAR1= 177642 $ 035716 
PIRQ = 177772 SIPDR7= 172216 TST13 © 02.3634 UIPAR2= 177644 SEOPCT 035740 
PIRQVE= 000240 SRO = 177572 TST14 024150 UIPAR3= 177646 SERFLG 
PRO = SR1 = _- 177574 TST15 025126 UIPAR4= 177650 SERMAX 001115 
PR1 = 000040 SR2 = 177576 TST16 64 UIPARS= 177652 SERROR 60 
PR2 = 000100 SR3 =_ 172516 TST17 = 026434 UIPAR6= 177654 SERRPC 001116 
PR3 = 000140 SSP =%000 TST2 021120 UIPAR7= 177656 SERRTB 001320 
PR4 = 000200 STACK = 001100 TST20 026710 UIPDRO= 177600 SERTTL 001112 
PRS = 000240 START TST21 027124 UIPDR1= 177602 SESCAP 001212 
PR6 = 000300 STKLMT= 177774 TST22 027526 UIPDR2= 04 SETABL 001244 
PR7 = 00034 SUPERM 035232 TST23 030124 UIPDR3= 177606 SETEND 001254 
PS = 177776 SUPSTK= 00 TST24 030554 UIPDR4= 177610 $FATAL 001226 
PSW == 177776 S 001140 TST25 031220 UIPDR5= 177612 SFFLG 006232 
G 007450 SWREG 000176 TST26 031634 UIPDR6= 177614 $FILLC 001156 
PWRVEC= 000024 S = 1 TST27 032244 UIPDR7= 177616 $FILLS 001155 
RDCHR = 104411 SswOO = 000001 TST3 021354 SESTK=_00 $GDADR 001120 
RDLIN = 104412 SwO1l = TST30 032530 USP _ =%000006 $SGDDAT 001124 
REGCHG 035662 SwO2 = 4 TST31 032734 VIRT1 001276 $GET42 036072 
REGDAT 035700 swO3 = 000010 TST32 033154 WASR6 001256 $GTSWR 004346 
035656 = 000020 TST33 © 033224 WASSRO 1264 = 
RESREG= 104414 SwOS = 0 TST34 033524 WASSR1 00 S$HIBTS 2 
RESVEC= 000010 Sw0O6 = 000100 TST35 033776 WASSR2 001270 $ICNT 
RETURN 035234 SwO7 = 000200 TST36 066 WASSR3 0012 SILLUP 007442 
=% SwO8 = 00 TST37 = 034160 WBIT = 000100 $INTAG 001135 
R7 =%000007 swo9 = 001000 TST4 021524 $APTHD 000204 SITEMB 001114 
SAVREG= 104413 Swi = TST40 034252 $ATYC 006012 $L 001222 
OPE = Ssw10 = 002000 TST41 034340 $ATY1 005 SLFLG 
SDPARO= 172260 SWw11 = 004 TST42 035236 $ATY3 005774 $LOOP 036166 
SDPAR1= 172262 Sswi2 = 010000 TST43 = 035312 $ATY4 006 $LPADR 
SDPAR2= 172264 Sw13 = TST44 035366 $AUTOB 001134 $LPERR 001110 
SDPAR3= 172206 Sw14 = 040000 TST45 035434 $BDADR 001122 IL 001224 
SDPAR4= 172270 Sw15 = 100000 TST5 022020 $BDDAT 001126 2 
SDPARS= 172272 SWw2 = 000004 TST6 022300 $BELL 001214 SMFLG 
SDPAR6= 172274 SWw3 = 0 TST7 022460 $BIN 006306 SMNEW 005261 
SDPAR7= 172276 SWw4 = 000020 TYPBN = 104406 $CHARC 005762 + $MSGAD 001240 
SDPDRO= 172220 SWw5 == 000040 TYPDS = 


104405 $CKSWR 004276" $MSGLG 001242 





ee 
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SMSGTY 001224 SRDCHR 004620 $SETUP= 000137 $TMP4 001206 $TYPE 005422 
SMSWR =. 005250 $RDLIN 004750 $STUP = 177777 $TMP5 001210 $TYPEC 005634 
SMXCNT 001506 $RDSZ = 000010 $SVLAD 003206 $TN = 000046 $TYPEX 005764 
$SNULL_ 001154 $REGAD 001160 $SVPC = 000204 TPB 001152 $TYPOC 006334 
SNWTST= 1 SRE 001162 $SWR = 173400 STPFLG 001157 $TYPON 006350 
SOCNT 006532 $REG] 001164 $SWREG 001246 $TPS 001150 $TYPOS 006310 
SOcTVvL 007160 $REG2 001166 $SWRMK= $TRAP_ 00717 $SUNIT 001236 
E 006534 $REG3 001170 $TBIT 001310 $TRAP2 007 SUNITM 214 
SOVER 003242 $RE 001172 $TESTN 001230 $TRP = 000015 $USWR 001250 
$PASS 001232 $SREGS 1174 $T 001146 $TRPAD 007 $XOFF = 23 
SPASTM 00021 SRESRE 007020 $TKS 001144 $TSTM 00 $x = 21 
007424 SRTNAD 036170 $TMPO 001176 $TSTNM 001102 $XTSTR 003044 
SPWRDN 007264 $RTRN 036164 $TMP1 001200 $TTYIN 00 $$GET4= 1 
SPWRMG 007420 SSAVRE 006762 $TMP2 001202 $TYPBN 006234 SOFILL 006533 
SPWRUP 007336 $SSAVR6 007446 $TMPS 001204 $TYPDS 006536 -$X = 000204 
$SQUES 001220 $SCOPE 003032 
- ABS. 036176 000 
001 


000000 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: gre WORDS Rite PAGES) 

DYNAMIC MEMORY: 20034 WORDS ( 77 PAGES 

ELAPSED TIME: 00:05:20 

CKKTBC.BIN, CKKTBC/CR/=SP/NL : TOC=CKKTBC .MLB/ML , CKKTBC.P11 


